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激励 我 。 这 上段 漫长 而 蔷 劳 的 旅程 
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制作 提供 了 大 力 支 持 的 所 有 
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本 和 


因为 


每 一 次 我 们 在 白板 上 设计 领域 模型 ， 似 乎 总 会 在 落实 到 代码 的 时 候 于 纷 杂 中 走 了 样 。 实 现 模型 不 
管用 哪 种 编程 语言 来 表述 ， 它 都 已 经 不 是 领域 专家 能 理解 的 业务 语言 形式 。 白板 上 的 模型 是 否 精 
确 反 映 了 我 们 与 领域 用 户 商 定 的 需求 规格 ， 这 也 无 从 让 掌握 领域 规则 的 人 员 去 验证 。 

对 于 这 个 症结 ， 本 书 给 出 的 解决 之 道 是 采用 一 种 以 DSL 驱动 的 应 用 程序 开发 模型 。 假 如 我 们 围绕 
领域 用 户 能 够 理解 的 语法 和 语义 设计 领域 API， 那 么 即使 在 应 用 程序 代码 的 开发 过 程 里 ， 用 户 也 能 
随时 检查 领域 规则 实现 得 是 否 正 确 。 采 用 领域 语言 的 代码 更 容易 让 人 看 懂 ， 在 这 一 点 上 ， 开 发 人 
员 、 维 护 人 员 、 只 人 慌 业 务 不 懂 编 程 的 领域 专家 都 是 受益 者 。 

本 书 除了 教 你 使 用 DSL 来 解决 问题 ， 还 会 教 你 实现 DSL。 在 本 书 看 来 ， DSL 只 是 在 语义 模型 外 本 
书 要 | 上 薄 薄 一 层 以 语言 全 肌 的 拍 语义 模型 是 把 握 领域 核心 结构 的 实现 载体 ， 语 言 层 则 使 
用 领域 用 户 的 专门 用 语 。 

本 书 将 使 用 Ruby、Groovy、Scala、 De a re de te) 与 实现 ， 针 对 这 些 语言 所 
代表 的 不 同 编程 范式 深入 讨论 它们 在 DSL 设 计 上 的 长 处 和 短处 。 本 书 ， 你 将 透彻 理解 一 些 必 
须 掌 担 的 概念 ， 能 名 设计 出 用 户 理解 且 扎 党 的 优美 的 领域 扯 象 。 

如 果 你 希望 自己 设计 的 API 其 表现 力 既 满足 领域 用 户 的 需要 ， 又 能 达到 程序 员 同 行 的 有 要求， 那么 这 
本 书 恰好 适合 你 。 如 果 你 是 一 名 领域 用 户 ， 正 期 待 着 改善 与 开发 团队 的 沟通 效果 ， 那 么 这 本 书 恰 
好 适合 你 。 如果 你 是 一 名 程序 员 ， 正 为 如 何 与 领域 用 户 核对 业务 规则 的 实现 正确 与 否 而 苦恼 ， 那 
么 这 本 书 同样 适合 你 。 


本 书 内 容 


图 1 “图 2、 图 3 除了 勾画 出 了 全 书 的 组 织 脉络 ， 对 各 章 的 内 容 也 作 了 简略 的 阐述 。 本 书 分 为 三 部 
人 


。 使 用 DSL; 
。 实现 DSL; 
。DSL 开 发 的 未 来 趋势 。 


我 们 都 想 
学 习 DSL 


实现 我 们 的 首 个 
DSL 


。 DSL 入 门 介 绍 

。 DSL 的 分 类 

。 DSL 在 领域 建 模 中 的 作用 

。 DSL 驱 动 开发 的 优点 和 缺点 


。 以 Java 实 现 的 一 个 DSL 现 实例 子 

。 Groovy 语 言 表现 力 更 强 ， 更 适用 于 实现 DSI 
。 用 Groovy 重 写 之 前 的 Java DSL 

。 DSL 实 现 的 一 般 模式 


怎样 将 DSL 集成 
到 核心 应 用 程序 


。 将 DSL 集 成 到 核心 应 用 程序 
。 一般 的 集成 模式 


i 。DSL 中 的 异常 处 理 


图 1 第 1 章 到 第 3 章 的 学 习 历 程 


可 以 学 点 DSL 
设计 模式 吗 ? 


来 看 一 些 具体 的 例子 


第 7 章 
能 讲 讲 具体 的 外 部 
DSL 设 计 技术 吗 ? 
第 8 章 
| 
帮 三 3 
让 第 9 章 


图 3 ”第 7 章 到 第 9 章 的 学 习 历程 


第 


的 7 


于 发 


第 4 章 


部 分 〈 第 1 章 ~ 第 3 章 ) 作为 总 括 ， 详 细 地 阐述 了 DSL 驱 动 开 发 环境 的 定位 ， 
应 用 程序 如 eR 构 中 找到 它 的 用 武之 地 。 如 有 果 你 是 程序 员 或 者 架构 师 ， 这 部 分 内 容 将 协助 你 调整 现 有 


。 实现 内 部 DSL 

。 模 式 、 惯 用 法 和 最 佳 实践 

。 分 别 用 Ruby、Groovy、Clojure、 
Scala 来 实现 内 部 DSL 


。 完 整 的 内 部 DSL 实 现 演练 
。 动态 OO 语言 一 一 Ruby 和 Groovy 
。 动 态 函 数 式 语言 一 一 Clojure 


。 用 Scala 实 现 内 部 DSL 

。 静 态 类 型 对 DSL 的 表现 力 和 
简洁 度 有 何 影响 

。 Scala 兼 具 强 大 的 OO 和 函数 
式 语言 特性 


。 齐 析 外 部 DSL 

。 语法 分 析 器 在 外 部 DSL 设 计 中 的 作用 
。 用 ANTLR 设 计 DSL 

。 作为 外 部 DSL 设 计 平台 的 Xtext 


。 用 解析 器 组 合子 来 设计 外 部 DSL 
。 解 析 器 组 合子 i 为 什么 ， 


怎么 做 
。 用 Scala 解 析 器 组 合 了 来 实现 DSL 


。 基 于 DSL 的 开发 的 未 来 趋势 
se。DSL 丰 富 的 相关 工具 支持 
。 分 析 器 组 合子 等 函数 式 特性 获得 更 多 用 武之 地 


帮助 读者 在 目 


目 己 的 


[ 具 和 技术 ， 使 之 适应 DSL 驱 动 的 新 范式 。 本 书 主 要 围绕 各 种 JVM Java 虚拟 机 ) 语言 展开 


论述 。 因 此 ，Java 程 序 员 很 快 就 能 够 从 书 中 找到 适合 自身 项 目 情况 的 DSL 运 用 方式 ， 在 自己 的 Java 
项 目 内 集成 用 表现 力 更 佳 的 其 他 JVM 语 言 开 发 出 来 的 DSL 。 
DSL 拥 有 各 种 贴近 用 户 思维 的 语法 结构 ， 这 些 语言 抽象 有 赖 于 语义 模型 在 背后 提供 支撑 。 第 二 部 
分 (第 4 章 ~ 第 8 章 ) 探讨 如 何 设计 出 优秀 的 语义 模型 ， 使 之 成 为 上 层 语言 抽象 的 有 力 后 盾 。 这 个 癌 
分 主要 是 给 开发 人 员 准 备 的 ， 旨 在 指导 开发 人 员 按 照 优 秀 抽象 的 设计 原则 来 搭建 领域 模型 。 从 第 4 
章 到 第 8 章 ， 各 # 都 含有 丰富 的 DSL 代 码 片段 ， 实 现 语言 包括 Ruby、Groovy、 we Scala 等 。 
如 果 正 在 或 即将 使 用 这 些 语言 来 实现 DSL， 那 么 你 会 发 现 这 几 章 的 内 容 特别 实用 。 书 中 讲解 了 
DSL 的 实现 手法 ， 而 且 将 从 最 基本 的 技术 入 手 ， 逐 渐 深入 到 高 级 技术 ， 如 元 编程 、 解 析 器 组 合 
子 ， 以 及 ANTLR、Xtext 等 开发 框架 。 
第 三 部 分 (第 9 章 ) 主要 展望 未 来 趋势 ， 重 点 讨论 解析 器 组 合子 和 DSL 工 作 台 技术 未 来 的 发 展 。 
本 书面 向 真正 的 实践 者 。 因 此 ， 虽 然 书 中 也 含有 理论 知识 ， 但 只 是 作为 帮助 理解 具体 实现 的 铺 热 
而 存在 。 我 发 自 内 心地 相信 这 将 是 一 本 让 i 战 在 开发 第 一 线 的 实 二 家 感 党 有 的 书 。 
排版 约定 
本 书 正文 中 穿插 了 不 少 插入 内 容 和 补充 内 容 ， 用 于 提醒 读者 注意 一 些 重要 信息 
一 般 来 说 ， 下 面 的 排版 样式 用 于 展示 与 证 券 交 易 及 结算 领域 有 关 的 信息 。 
[eo 金融 中 介 系 统 
带 有 这 个 标志 ， 即 表示 其 中 信息 与 DSL 所 属 领 域 有 关 ， 读者 需 和 要 了 解 其 中 知识 才能 理解 上 下 
文 。 此 类 内 容 一 般 是 对 一 些 特殊 术语 和 概念 的 背景 介绍 
书 中 还 有 带 另 一 种 标志 的 插入 内 容 ， 其 排版 格式 如 下 。 
咒 比 关 插 入 内 容 含 有 不 属于 所 在 章节 讨论 话题 的 知识 。 例 如 某 种 DSL 设 计 的 特殊 惯用 法 、 对 前 
文 讨论 的 重点 归纳 ， 或 者 我 希望 强调 的 其 他 重要 知识 点 。 
另外 ， 我 还 用 下 面 所 示 的 标志 来 引起 读者 对 特定 内 容 的 注意 。 
年 语言 相关 信息 
看 到 这 个 标志 ， 你 就 应 该 知道 其 中 含有 当前 示例 所 用 编程 语言 的 小 知识 。 你 需要 掌握 这 些 特 定 
的 概念 才能 真正 理解 当前 前 示例 。 
在 这 里 ， 我 提请 大 家 注意 不 要 轻易 忽略 这 些 带 有 不 同 标志 的 补充 信息 ， 它 们 都 是 可 以 帮助 你 透彻 
理解 当前 讨论 内 容 的 重要 参考 知识 。 


代码 约定 和 下 载 


本 书包 含 大 量 的 DSL 示 例 ， 其 中 不 少 例子 的 完成 度 很 高 ， 足 以 完整 解释 某 一 方面 的 领域 规则 实 
现 。 这 些 例 于 使 用 的 编程 语言 有 Java 、 Ruby 、 Groovy 、 0 代码 清单 和 正文 中 插入 的 
代码 片段 都 使 用 等 宽 字 体 ， 读者 把 它们 和 一 般 的 文字 区 分 。 正文 中 出 现 的 方法 名 、 参 
数 、 对 象 属性 、ANTLR 和 Xtext 等 脚本 、XML 元 素 和 属性 也 都 一 律 使 等 宽 字 体 呈 现 。 

示例 代码 不 一 定 总 是 短小 的 片段 ， 有 时 候 为 了 充分 说 明 所 涉 领 域 的 上 下 文 和 语义 ， 也 会 占用 较 长 
的 篇 幅 ， 保 留 较 多 的 细节 。 书 中 的 代码 经 常会 为 了 适应 书本 的 页 面 宽度 ， 而 在 断 行 和 缩 进 上 做 一 


些 格式 调整 ， 侦 尔 还 有 调整 不 过 来 的 情况 ， 这 时 对 于 那些 不 得 不 折 行 的 代码 ， 我 们 会 在 折 行 的 位 
置 打 上 一 个 续 行 标记 。 


0 坚 放 证 ， 以 便 癌 读者 提示 重点 。 有 时候 标注 还 会 之 有 数字 编号 ， 方 便 我 
| 人 外 2 [ 参 版 。 


书 中 用 了 多 种 编程 语言 来 实现 DSL， 显 然 不 可 能 所 有 的 读者 都 熟悉 其 中 所 用 的 每 一 种 语言 。 因 此 
作为 快速 的 参考 ， 书 后 准备 了 每 种 语言 的 速 查 表格 ， 见 附录 C 到 附录 G。 附 录 中 的 介绍 只 是 针对 书 
FP 探讨 DSL 实 现 所 用 到 的 一 些 关 键 语言 特性 展开 ， 并 不 完整 全 面 ， 进 一 步 的 知识 需要 读 着 到 表格 
后 补充 的 参考 资料 中 去 寻找 。 


大 多 数 时 新 的 IDE 都 有 能 力 支 持 开发 者 在 同一 项 目 中 使 用 多 种 语言 。 如 果 读 者 不 熟悉 多 语言 开发 环 
境 ， 附 录 G 是 一 个 简单 的 入 门 指导 。 


书 中 所 有 示例 的 源 代码 都 可 以 从 Manning 出 版 社 网 站 下 载 1， 地 址 为 
http://www.manning.com/DSLsinAction ， 配 置 构 建 环境 和 执行 环境 的 相关 指示 也 包含 在 内 。 阅 读 的 
时 候 在 手边 备 一 份 源 代 码 ， 这 会 对 你 很 有 帮助 。 


1 .也 可 在 图 灵 社 区 本 书页 面 (http://www.ituring.com.cn/book/836 ) 免费 注册 下 载 。 一 一 编者 注 


作者 在 线 


本 书 有 一 个 由 Manning 出 版 社 运营 的 关联 网 络 论坛 ， 购买 本 书 的 读者 具有 人 免费 访问 论坛 的 权利 。 读 
者 可 以 在 上 面 发 表 评 论 、 询 问 技术 问题 ， 并 获得 作者 和 其 他 用 户 的 帮助 。 注 册 及 使 用 论坛 请 访问 

http://www.manning.com/DSLsinAction 。 读 者 可 从 该 页 面 了 解 论坛 的 注册 和 使 用 方法 、 论 坛 内 提供 
的 帮助 、 论 坛 守 则 等 信息 


Manning 出 版 社 向 读者 承诺 提供 读者 之 间 、 读 者 与 作者 之 间 展 开 有 意义 对 话 的 便利 场所 。 作 者 只 是 
志愿 〈 且 无 偿 ) 地 参与 论坛 活动 ， 因 此 Manning 出 版 社 个 对 作者 参与 论坛 的 程度 做 要 求 。 我们 建议 
读者 尽量 提出 一 些 具有 挑战 性 的 问题 ， 让 作者 有 兴趣 持续 访问 本 论坛 。 在 书籍 在 版 期 间 ， 出 版 社 
网 站 将 保证 读者 可 以 访问 作者 在 线 交 流 论坛 及 论坛 上 积累 的 讨论 内 容 。 


关于 作者 


Debasish Ghosh 《Twitter 帐号: @debasishg) 在 Anshinsoft 公 司 (http://www. anshinsoft.com ) 任 首 
席 技 术 布 道 师 ， 他 擅长 领导 团队 交付 企业 规模 的 解决 方案 ， 服 务 过 的 客户 有 ns 
企业 。 他 的 研究 兴趣 是 OO 及 画 数 式 编程 、DSL 和 NoSQL 数 据 库 。 他 是 ACM 协 会 的 高 级 会 员 ， 

撰写 一 个 编程 方面 的 博客 “Ruminations of a Programmer” (http://debasishg.blogspot.com ) 他 的 电 
子 邮件 : dghosh@acm.org。 


关于 封面 图 片 


本 书 封 面 图 片 为 “来 目 克罗地亚 斯 拉 沃 尼 亚 地 区 奥 西 耶 克 城 附 近 的 久 尔 杰 瓦 欧 村 的 男人 ”。 这 幅 画 
是 在 克罗地亚 历史 名 城 斯 普 利 特 的 民族 博物 馆 一 位 热心 馆 员 的 帮助 下 取得 的 ， 来 自 该 馆 2003 年 重 
版 的 一 本 19 世 纪 中 期 由 Nikola Arsenovic 编 所 的 克罗地亚 传统 汲 饰 画集 。 斯 普 利 特 民族 博物 馆 本 身 
即 坐 落 于 中 世纪 的 城市 中 心 ， 也 是 罗马 古迹 的 核心 所 在 建 于 公元 304 年 前 后 的 罗马 帝国 宫殿 戴 
克 里 先 宫 遗 址 上 。 夯 集 内 收录 了 克罗地亚 各 地 区 人 物 形 象 的 精细 彩绘 图 样 ， 并 配 有 对 服饰 和 生活 
习俗 的 文字 说 明 。 


TT 


久 尔 杰 瓦 尝 村 位 于 奥 西 耶 克 城 附 近 ， 属 于 殉 罗 地 亚 东 部 历史 悠久 的 斯 拉 沃 尼 亚 地 区 。 斯 拉 沃 尼 
的 男人 们 传统 上 穿戴 红色 的 帽子 、 和 白色 衬 衣 、 带 刺绣 图 案 的 蓝 色 马 甲 和 长 裤 ， 然 后 点 组 上 毛 织 或 
皮革 的 宽 腰带 和 厚 毛 祈 ， 最 后 香 件 棕 色 羊 皮 的 短 外 套 ， 也 就 是 本 书 封 面 上 的 样子 。 


人 们 的 衣着 式样 和 生活 习俗 在 最 近 的 200 年 里 发 生 了 很 大 的 变化 。 从 前 各 地 丰富 多 彩 ， 极 具 地 方 特 
色 的 衣着 和 习俗 已 经 消失 列 尽 。 依 现在 的 情况 ， 甚 至 连 不 同 洲 的 居民 都 趋 于 同化 、 难 以 区 分 了 ， 

相距 数 里 的 村 落 和 市 镇 之 间 ， 就 更 不 可 能 有 什么 差别 了 。 也 许 ， 我 们 已 经 牺牲 了 文化 的 多 样 性 来 
换取 多 姿 多 彩 的 个 人 生活 一 一 五 光 十 色 的 、 快 节奏 的 科技 生活 。 


Manning 出 版 社 特意 从 旧书 和 藏品 里 找 回 这 些 古老 图 样 ， 让 两 个 世纪 以 前 丰 盟 多 彩 的 地 方 生活 特 
在 图 书 封面 上 重 焕 光彩 ， 以 此 来 表达 对 计算 机 行业 的 创造 精神 和 主动 精神 的 赞美 。 
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关于 封面 图 片 


本 书 封 面 图 片 为 “来 目 克罗地亚 斯 拉 沃 尼 亚 地 区 奥 西 耶 克 城 附 近 的 久 尔 杰 瓦 洗 村 的 男人 ”。 这 幅 画 
是 在 克罗地亚 历史 名 城 新 普 利 特 的 民族 博物 馆 一 位 热心 馆 员 的 帮助 下 取得 的 ， 来自 该 馆 2003 年 重 
版 的 一 本 19 世 纪 中 期 由 Nikola Arsenovic 编 撰 的 克罗地亚 传统 服饰 画集 。 斯 普 利 特 民族 博物 馆 本 身 
即 坐 落 于 中 世纪 的 城市 中 心 ， 也 是 罗马 十 迹 的 核心 所 在 一 一 建 于 公元 304 年 前 后 的 罗马 帝国 宫殿 戴 
克 里 先 宫 遗 址 上。 画集 内 收录 了 克罗地亚 各 地 区 人 物 形 象 的 精细 彩绘 图 样 ， 并 配 有 对 服饰 和 生活 


习俗 的 文字 说 明 。 


信 尔 杰 瓦 次 村 位 于 问 西 那 克 城 附近 ， 遇 于 克罗地亚 东部 历史 悠久 的 斯 拉 沃 尼 亚 地 区 。 斯 拉 沃 尼 亚 
的 男人 们 传统 上 穿戴 红色 的 帽子 、 和 白色 衬 衣 、 带 刺绣 图 案 的 蓝 色 马 甲 和 长 裤 ， 然 后 点 组 上 毛 织 或 
皮革 的 宽 腰带 和 厚 毛 袜 最 后 单一 件 棕色 羊皮 的 短 外 套 ， 也 就 是 本 书 封 面 上 的 样子 。 人 们 的 衣着 
式样 和 生活 习 丛 在 最近 的 200 年 里 发 生 了 很 大 的 变化 。 从 前 各 地 丰富 多 彩 ， 极 具 地 方 特色 的 衣着 和 
习俗 已 经 消失 殖 尽 。 依 现在 的 情况 ， 甚 至 连 不 同 洲 的 居民 都 趋 于 同化 、 难 以 区 分 了 ， 相 距 数 里 的 
村 落 和 市 镇 之 间 ， 就 更 不 可 能 有 什么 差别 了 。 也 许 ， 我 们 已 经 牺牲 了 文化 的 多 样 性 来 换取 多 姿 多 
彩 的 个 人 生活 一 一 五 光 十 色 的 、 快 节 委 的 科技 生活 。 


Manning 出 版 社 特意 从 旧书 和 藏品 里 找 回 这 些 古老 图 样 ， 让 两 个 世纪 以 前 丰 晤 多 彩 的 地 方 生活 特色 
在 图 书 封 面 上 重 焕 光彩 ， 以 此 来 表达 对 计算 机 行业 的 创造 精神 和 主动 精神 的 赞美 。 
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第 一 部 分 领域 专用 语言 入 门 


he a 软件 的 行业 用 户 
带 来 哪些 好 处 ?” DSL 驱 动 开发 是 否 有 F 发 团队 与 领域 专家 团队 之 间 的 交流 ? DSL 驱 动 开 发 有 
何 利 中 ?这 此 问题 部 可 以 主 第 一 名 分 找到 千 实 。 


这 一 部 分 由 第 1 章 ~ 第 3 章 组 成 ， 将 介绍 多 种 被 广泛 使 用 的 DSL 和 设计 DSL 的 一 般 原 则 ， 以 便 你 在 
己 动 手 设 计 DSL 时 知道 应 该 注意 什么 。 


第 1 章 照例 是 对 DSL 的 入 门 介绍 

第 2 章 将 带 你 一 起 设计 第 一 个 DSL。 随 着 设计 的 推进 ， 你 将 体会 到 用 户 需求 一 步 步 地 演变 成 富 于 表 
0 我 人 首先 用 Java 来 实现 DSL， 然 后 换 成 JVM 上 的 男 一 种 语言 Groovy， 届 时 你 将 看 到 语 
言 表 现 捉 


第 3 章 介绍 如 何 围绕 一 个 核心 应 用 程序 集成 内 部 与 外 部 DSL， 以 及 如 何 处 理 错误 和 异常 。 


这 一 部 


分 面向 程序 员 和 不 具备 编程 背景 的 领域 用 户 ， 


对 DSL 的 大 体 情 


境 有 


个 全 卫 


第 1 章 初 识 DSL 


本 章 内 容 


。 什 么 是 DSL 
。DSL 对 于 
。 DSL 的 结构 
。 采用 设计 得 当 的 


的 了 解 。 


) 你 通常 都 


上 一 杯 用 脱 月 
单 用 的 是 她 能 


! 爱 


商业 用 户 和 解决 方案 的 开发 者 各 有 什 


么 好 处 


因此 特意 避 开 


La 


4 体 的 实现 引 


的 咖 


氮 一 书 Ne 


本 肉桂 带 奶 ; 


拿 铁 ”， 店 


TD， 


以 便 读者 


员 则 会 准确 


毫升 拿 铁 咖 四 
际 每 个 词 的 含义 


E, 


二 浇 打 
也 丝 训 


伯 不 相干 的 人 听 ] 
， 然 后 进一步 在 解答 域 对 


(Domain-Specific Language， 


件 ， 那 么 客人 们 每 天 点 


所 用 的 语 


开发 者 设计 的 任何 应 用 各 
产物 和 组 成 部 分 。 在 更 


切 世 


部 都 将 问 


我 们 


成 立 ， 你 需要 先 找 出 


y 


此 我 们 在 


相 


通 的 语 


言 ) 的 基本 思 
尔 要 找 的 DSL 。 


题 域 映 射 成 解答 
出 定义 DSL 之 前 


两 个 领域 之 间 汇 。 这 4 


0 何 


域 上 
首先 介 


实现 模型 。 


特定 领域 的 语汇 


上 壕 咖 时 


发 的 


鲜 奶 
Ea C 碍 于 
来 表达 一 


油 。 
交 
4 


域 的 实现 模型 DL 


FE 店 里 的 


境 做 成 软 


占 


DSL 是 


绍 成 功 建立 映射 的 必要 过 程 。 


的 DSL 实 现 必定 不 能 缺少 一 套 好 的 抽象 。 
录 人 A 中 详 引 


继续 
多 


细 得 多 。 


1.1 问题 域 与 解答 域 


领域 建 模 是 帮助 你 分 析 、 理 解 
的 实体 如 何 与 其 他 


自然 


识别 莫 
实体 进行 有 
用 了 与 店员 的 知识 最 


5 近 的 专门 用 语 。 


语汇 是 促成 DS 最终 诈 4 


某 些 读者 可 能 打算 


项 具体 ; 
意义 的 互动 。 


再 动 所 有 参与 方 的 活动 。 


| 探讨 了 设计 中 应 该 追求 的 一 些 特质 。 
看 本 章 接 下 来 的 内 容 。1.7 节 也 介绍 了 关于 抽象 的 基本 内 容 ， 但 附 孙 A 


映射 过 程 中 


的 一 项 重 
要 使 映射 


的 关键 种 子 。 


继续 深究 怎 


你 不 妨 现在 就 翻阅 


羊 设计 1 


第 一 步 从 问题 域 入 手 ， 


确 


在 咖啡 ) 


的 例 寺 


之 所 以 能 
1.1.1 问题 域 


英 活 动 中 ， 


(参见 1.9 节 文献 [1]) 


顺利 给 你 提供 相应 饮料 ， 


， 多 


问题 域 指 构成 你 


正 走 


因为 你 们 俩 


所 分 析 


是 要 识别 


[HH 人 而 


Ea 


下 的 例子 中 ， 店 员 和 


的 一 此 
到 各 下 
记 入 文档 


方 之 间 8 
分 析 模 型 世 


1.1.2 解答 域 


» 


所 了 构成 其 所 
折 一 个 更 复杂 的 领域 ， 比 如 金 珊 
些 元 素 。 除 了 这 些 ， 你 还 
账册 和 户 ; y 


可 题 域 的 月 


的 于 
或 


术语 构成 了 问 


成 的 


题 : 


都 熟悉 必要 的 专门 


3 语 。 


程 、 实 体 和 约束 条 件 。 


的 重要 元 素 以 及 它 


品 出 
DB 


a 


你 点 单 时 用 
核心 实体 。 


门 之 


啡 、 打 发 鲜 


统 ， 那 么 


°。 你 需要 先 确 


i 


\ 作 关系 ， 然 后 进行 


奶油 、 肉 


J 该 领域 最 
咖啡 店 店员 


领域 建 模 ， 也 称 
辣 的 协作 关系 。 


人 


证 券 投票 、 


问题 域 的 分 } 析 模型 是 用 解答 域 提 供 的 工具 


时 。 她 所 遵守 的 制作 过 程 以 及 俩 


工具 就 是 其 解答 


可 能 就 越 需 要 从 解答 域 寻 求 更 多 


、 方 法 学 和 技术 


多 ] 
解答 域 中 


适当 的 技术 手段 。 如 果 ; 


句 对 象 方法 作为 解答 


方法 就 是 解答 域 的 基本 组 件 。 你 可 以 提 


件 


手段 实现 出 来 的 。 你 只 要 点 让 
域 的 构成 
手段 方面 的 支持 。 

域 的 基本 平台 ， 
0 点 的 组 件 ， 


FE ， 上 店员 束 懂 得 该 如 何 制 
。 面 对 的 问题 域 越 

问题 域 的 元 素 需 要 
那么 类 、 对 象 和 


而 后 者 可 


S 


成 分 


表示 问题 域 更 高 一 层 的 元 素 。 图 1-1 描 
能 理解 的 技术 手段 ， 完成 向 解答 
渐 加 深 。 


问题 域 制品 


将 问 


图 1-1 
易 


领域 建 模 的 基本 实践 活动 就 是 把 站 


I 


会 了 领域 建 模 中 
域 转换 的 全 过 程 ? 捕 基 学 习 的 了 RE 难 


] 题 域 映 射 到 解答 域 的 若干 


第 一 步 。 如 何 


解答 域 制品 


题 域 映射 到 解答 域 


制品 ， 让 


从 间 


题 域 出 发 ， 领域 专家 
进 ， 你 对 此 过 程 的 E 解 会 逐 


问题 域 的 实体 和 协作 关系 必须 映射 成 解答 域 中 相应 的 制品 。 图 中 左边 的 实体 证券 、 交 
、 结算 等 ， 需 要 在 右边 能 找到 对 应 的 表示 


EN 


FF 所 有 的 元 素 、 相 互 作用 和 协 


作 关 系 都 得 到 正确 而 合理 的 表示 。 
时 ， 问 题 域 的 每 个 对 象 及 其 结构 


为 此 ， 
和 语义 都 能 


你 


I 


巴 领 域 对 象 按 合理 


的 粕 度 归 类 。 当 分 类 正确 


先 
解答 域 找到 对 应 项 。 


不 过 ， 了 映射 的 效果 无 法 超越 作 


人 
Y 


号 的 表现 力 。 


4 二 


1.2 领域 建 模 : 确立 共通 的 语汇 


ray 


可 靠 的 互动 要 求 问 题 域 与 解答 域 


分 享 一 套 共 通 的 语 


首先 要 从 等 待 被 建 


开始 一 项 领域 建 模 活动 ， 
职责 的 方式 。 这 项 工作 要 在 领域 专家 


9 问题 域 着 手 


FE。 你 要 到 
建 模 人 员 的 协作 之 下 进行 。 


' 实 体 彼此 互动 及 履 
领域 专家 是 内 行 他 人 


的 专门 用 语 交 流 ， 
勾 表 达成 一 下 写成 
将 其 理解 反 计 的 


领域 概念 的 时 候 也 离 不 开 


这 套 专 | ] 用 
理解 


文档 、 分 享 并 实现 成 软 人 
人 去 。 


F 的 形式 。 建 模 者 必须 能 


中 介 机 


构 的 后 台 操 


少 。 


和 J 种 种 组 


人 香 | 
节 pA 


复杂 情况 所 知 其 


子 和 人 解释 足以 


FE 完成 建 模 的 项 目 


° 我 不 是 那个 领域 的 专 
与 领域 专家 一 段 时 间 的 


。 经 过 


:为 读者 对 其 他 人 领域 建 模 时 的 参考 。 


介绍 如 何 


本 概念 5 


日志 
建 模 对 


象 的 基 


证 券 交 易 和 金融 


从 


:发现 一 些 新 的 概念 及 2 


介 领 域 的 基 才 


情况 ， 我 们 
必要 的 详细 内 


补充 内 容 的 形式 提供 


足够 的 背景 资料 ， 帮 助 你 了 


就 在 需求 分 析 会 议 开 始 的 第 一 天 ， 金 融 业 的 领域 专家 开始 大 谈 附 息 债 券 、 折 价 债券 、 


抵押 、 公 司 


行为 。 这 些 词 吉 是 金融 中 介 的 常用 术语 ， 但 我 完全 不 知道 是 什么 意思 。 而 且 不 少 词 其 


:是 同 义 


词 ， 比 如 折价 债券 意思 等 司 零 息 债券 ， 不 同 的 领域 专家 会 在 不 同 场合 交替 使 用 它们 。 
懂 ， 混淆 的 情况 层出不穷 。 在 场 的 不 可 能 都 是 金融 业 专 家 ， 所 以 我 们 很 快意 识 到 必须 
通 的 语汇 ， 以 免 知 识 交 流 会 议 失 去 意义 。 不 仅 与 领域 专家 的 协作 要 在 共通 语汇 的 前 提 
我 们 要 确保 设计 开发 出 来 的 模型 基于 同一 种 “语言 一 一 这 个 领域 的 自然 语言 。 


金融 中 介 的 业务 始 自 一 次 交易 过 程 。 该 过 程 涉及 两 个 以 上 当事人 之 间 证 券 现金 的 


:3 Be 区 芝 位 从 本 ， 网 伍 之 语 有 于 们 < 之 人 


可 因为 我 不 
确定 定 一 套 共 
下 进行 ， 而 


交换 ， 这 些 


当事人 称 为 交易 广 。 在 某 个 确定 的 日 期 ( 称 为 交易 日 ) ， 交 易 方 承诺 在 股票 交易 所 这 个 地 


证 券 ( 男 


父 
一 支柱 是 现金 ) 一 一 有 多 种 类 型 ， 如 股票 、 债 券 、 共 同 基金 等 ， 许 多 类 型 各 自 又 有 
体系 。 比 如 ,债券 又 可 分 为 附 息 俩 券 和 折价 债券 。 


在 交易 日 之 后 规定 的 天 数 内 ， 证 券 的 所 有 权 在 交易 方 之 间 完 成 转移 ， 这 称 为 
每 种 证 券 都 有 各 目的 交易 、 成 交 、 结 算 流程 ， 在 交易 和 结算 过 程 中 要 经 历 一 系列 的 


共通 语汇 的 益处 
共通 语汇 在 模型 的 所 有 关联 方 之 中 共享 ， 作 为 一 股 维系 力量 把 组 成 实现 的 各 部 分 制品 


窜 风 
, 除 
eb 


不 同 的 分 类 


结算 过 程 。 
状态 变更 & 


统一 起 来 。 
特性 、 功 能 


更 重要 的 是 ， 有 了 这 套 共通 语汇 ， 你 就 可 以 在 项 目 交 付 周 牛 的 各 个 阶段 民众 跟从 各 
和 对 象 的 变化 轨迹 。 建 模 者 用 来 编写 测试 用 例 的 名 词 术语 出 现在 程序 里 就 是 模块 的 名 


数据 模型 里 就 是 实体 的 名 字 ， 出 现在 测试 用 例 里 就 是 对 象 的 名 字 。 以 这样 的 方式 ， 共 ; 语汇 


了 架 通 问题 域 与 解答 域 的 桥梁 。 在 项 目前 期 ， 建 立 共通 语 汇 花费 的 时 间 可 能 超过 预期 


但 我 几乎 


可 以 担保 ， 它 将 帮助 避免 更 多 未 来 返工 的 时 间 。 我 们 来 看 看 共通 语汇 可 以 带 来 的 切实 
1. 把 共通 语汇 当做 粘 合 剂 


的 好 处 。 


讨论 更 加 简 


壬 需求 分 析 阶 段 ， 和 7 通 语汇 可 充当 建 模 者 和 领域 专家 之 间 互 相 理 解 的 桥梁 ， 可 使 


4 
明 扼 要 、 效 率 更 高 。 当 交易 员 老 鲍 提 到 债券 的 应 计 利 奶 时 ， 建 模 员 乔 知 道 他 说 的 债券 


券 。 


2. 测试 用 例 中 的 共通 词汇 
1 这 样 便于 领域 专家 验证 测试 用 例 的 正确 性 。 


符 指 附 息 俩 


在 我 那个 金 


介 系 统 的 项 目 中 有 这 样 一 个 测试 用 例 ， 对 于 证 券 公司 蹦 蹦 高 证 券 以 40% 价 格 发 行 、 


面值 为 10 
。 这 个 测试 


00 美 元 、 ` 首次 计 息 日 为 2001 年 5 月 15 日 的 零 息 债券 ， 投 资 者 应 在 发 行 时 支付 美元 4000 
例 无 论 建 模 者 、 测 试 者 还 是 负责 审阅 的 领域 专家 都 能 完全 理解 ， 因 为 它 采 用 了 最 自 


3. 开发 中 的 共通 语汇 


如 果 开 发 团队 用 共通 语汇 来 表述 程序 模块 ， 那 么 产生 的 代码 也 将 使 用 同一 种 领域 语言 
起 模块 的 时 候 都 用 “债券 交易 模块 "、“ 证 券 结算 模块 ”一 类 的 字眼 ， 那 么 写 代码 的 时 候 
同样 的 字眼 命名 领域 实体 。 


在 问题 域 与 解答 域 之 间 发 展 出 一 套 共通 语汇 是 走向 解答 域 的 第 一 步 。 让 我 们 给 图 1-1 添 上 “共通 语 


L” 这 个 维系 两 个 领域 的 粘 合 剂 ， 结 果 如 图 1-2 所 示 。 


然 的 领域 语 


。 如 果 你 提 
自然 就 会 用 


问题 域 制品 


解答 域 制品 
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图 1-2 ”问题 域 和 解答 域 享有 共同 的 语汇 ， 可 降低 信息 传达 的 困难 度 。 在 共通 语汇 之 下 ， 你 可 以 从 
问题 域 的 制品 追踪 到 它 在 解答 域 的 相应 表示 


你 已 经 知道 开发 者 和 领域 专家 要 有 共通 语汇 ， 但 是 语言 要 怎样 映射 到 解答 域 呢 ? 对 于 开发 者 制作 
的 模型 ， 领 域 专家 能 理解 多 少 ? 沟通 问题 是 软件 开发 生态 系统 中 的 常见 问题 。 
看 过 图 1-2， 你 应 该 会 知道 不 可 能 指望 领域 专家 直接 理解 目前 构成 解答 域 的 技术 制品 ， 他 们 不 具备 
那样 的 能 力 。 随 着 系统 复杂 度 的 提高 ， 借读 开 始 膨胀 ， 沟 通 的 障碍 也 越 来 越 多 。 [是 领域 专家 其 
实 没 必 要 理解 那 坚 与 实现 僵 型 相关 的 复 基 田 放 ， 验 证 业务 规则 实现 得 正 不 正确 才 是 他 们 该 做 的 事 
情 。 理 想 情 况 下 ， 领 域 专家 可 以 自己 编写 测试 脚本 去 验证 领域 规则 的 实现 的 正确 性 及 完善 程度 ， 

这 不 是 一 个 现实 的 方案 。 


那么 有 没有 可 能 以 共通 语汇 为 基础 ， 为 领域 专家 建立 一 种 沟通 模型 ， 并 让 其 他 人 也 都 能 流利 说 出 
领域 专家 的 日 常 业 务 用 语 ? 可 以 办 到 。 这 正 是 DSL 发 挥 作用 的 时 刻 ! 


1.3 初 颖 DSL 


蹦 蹦 高 证 券 公司 的 IT 主管 乔 搞 不 懂 交 

他 感到 信 讶 的 是 ， 乔 发 现 老 鲍 正 忙 着 

里 敲 一 些 命 令 和 语句 。 下 面 

。 乔 : 嘿 ， 老 鲍 ， 你 还 会 编程 ? 

。 老 鲍 : 咽 ， 会 点 儿 ， 可 以 在 我 们 的 新 系统 TrampolineEasyTrade 中 编 点 儿 。 

乔 : 可 你 不 是 交易 员 吗 ? 

。 老 鲍 : 交易 员 怎 么 了 ? 交易 员 就 用 这 个 软件 做 交易 。 
乔 : 软件 是 提供 给 你 们 使 用 的 ， 没 打算 让 你 们 在 里 头 编程 。 而 且 ， 这 产品 还 没 开发 完 呢 。 

。 老 鲍 : 可 既然 是 我 将 来 要 用 的 软件 ， 现 在 我 给 它 编 一 些 测 试 不 是 挺 好 吗 ? 这 样 一 来 ， 我 的 


意见 可 以 尽早 反馈 给 开发 团队 ; 区 感觉 页 献 更 大 ， 我 会 对 开发 中 的 产品 更 
有 信心 。 而且 ， 我 还 可 以 验证 我 的 用 例 能 不 能 通过 


忆 | 


员 老 鲍 在 做 什么 事情 ， 不 E 
编程 环境 一 一 乔 觉 人 
他 们 之 间 的 对 话 。 


49， 不 自觉 萝 了 一 眼 他 的 脑 屏 攻 
导 只 有 其 手下 的 开发 团队 才能 的 编程 


@ 
二 


O 


。 乔 : 但 这 是 开发 团队 的 职责 ! 我 每 天 都 和 他 们 沟通 。 我 们 有 工具 检查 代码 覆盖 率 、 测 试 覆 
盖 率 以 及 各 种 指标 ， 肯 定 能 保证 交付 最 好 的 软件 。 


。 老 鲍 ， 就 对 金融 中 介 系 统 这 个 领域 的 了 解 而 言 ， 你 觉得 谁 更 懂 ? 我 ， 还 是 你 的 那 套 工 具 ? 
最 后 ， 乔 不 得 不 认同 老 鲍 身 为 金融 中 介 系 统领 域 的 专家 ， 更 有 能 力 检 查 新 交易 平台 是 否 正 确 、 充 
分 地 满足 了 功能 规格 书 的 要 求 " 4 只 不 过 乔 还 是 不 懂 ， 为 什么 老 鲍 不 是 程序 员 却 也 会 用 测试 框架 写 
测试 


读者 想必 也 有 同样 的 疑惑 。 那 就 来 看 看 下 面 的 代码 清单 ， 这 正 是 “刚刚 ” 老 鲍 在 屏 硕 上 涡 出 的 内 
谷 ° 


代码 清单 1-1 ”用 DSL 编 写 的 交易 单 处 理 过 程 


place orders ( 
new Order to buy(100 sharesof "IBM") 
JimitPrice 300 
allorNone 
using premiumPricing， 
new Order to buy(200 sharesOof "CISCO") 
limitOnClosePrice 300 
using premiumPricing， 
new Order to buy(200 sharesof "GOOGLE") 
limitonopenPrice 300 
using defaultPricing, 
new Order to sell(200 bondsof "SUN") 
JimitPrice 300 
allorNone 
using { 
(qty, unit) => qty * unit - 500 


好 像 真是 代码 呢 。 没 错 ， 但 同时 代码 里 的 一 些 用 语 束 跟 老 鲍 平常 坐 上 交易 台 时 说 的 那 种 语言 

样 。 老 鲍 正 在 编写 一 段 创建 新 交易 单 的 脚本 ， 里 面 按照 不 同 定价 策略 生成 了 各 种 交易 单 的 样本 。 
除了 预定 义 的 策略 ， 他 还 可 以 在 下 单 的 时 候 自 定义 一 种 定价 策略 。 
老 饱 编程 用 的 是 什么 语言 ? 只 要 能 完成 工作 ， 他 一 点 儿 都 不 在 意 。 对 于 他 来 说 ， 这 种 编程 语言 跟 
宁 和 常 编写 代码 的 
工作 有 何不 同 ， 这 值得 细 辨 一 番 。 


。 老 饱 的 编程 语言 用 语 自 合 他 所 属 的 领域 。 他 可 以 把 平日 在 交易 台 前 为 客户 下 单 所 用 的 术语 原 
封 不 动 地 写 进 测试 脚本 。 


。 他 所 用 的 语言 ， 从 刚才 所 见 的 那 一 段 来 看 ， 并 不 适用 于 金融 中 介 业 务 以 外 的 领域 。 


。 这 种 语言 的 表现 力 很 强 ， 老 鲍 只 需要 照 着 平常 给 客户 创建 新 定单 的 步 又 按部就班 ， 束 能 把 要 
做 的 事情 清晰 地 表达 出 来 。 


。 这 种 语言 语法 简明 。 高 级 编程 语言 中 常见 的 复杂 语法 细 市 奇迹 般 地 不 见 了 。 
老 鲍 所 用 的 正 是 一 种 为 金融 中 介 系 统 量 吴 订 做 的 领域 专用 语言 。 此 刻 ， 背 后 用 什么 语言 来 实现 


DSL 显 得 无 关 紧 要 。 我 们 很 难 从 代码 清单 1-1 中 看 出 来 背后 用 的 是 哪 种 语言 ， 这 正好 说 明 设计 着 成 
功 地 为 该 领域 创造 了 一 种 富 于 表现 力 的 语言 。 


1.3.1 何 为 DSL 


DSL 是 一 种 针对 特定 问题 的 编程 语言 ， 我 们 平常 所 用 的 编程 语言 用 途 更 为 宽泛 。DSL 含 有 建 模 所 
需 的 语法 和 语义 ， 在 与 问题 域 相同 的 抽象 层次 对 概念 建 模 。 例 如 ， 你 要 点 一 份 肉桂 拿 铁 咖啡 ， 就 
对 店员 使 用 她 所 掌握 的 领域 语言 。 


定义 “抽象 是 人 类 大 脑 的 一 种 认 知 过 程 ， 它 使 我 们 集中 注意 力 于 认 知 对 象 的 核心 层面 ， 忽 略 不 
必要 的 细节 。1.7 节 会 进一步 讨论 抽象 与 DSL 设 计 的 关系 ， 附 录 A 则 完全 是 关于 抽象 的 内 容 。 


用 DSL 写 出 来 的 程序 ， 任何 一 方面 的 品质 都 不 应 该 低 于 用 其 他 计算 机 语言 编写 的 程序 。DSL 还 应 
该 赋予 你 设计 领域 中 银 概 仿 负 能 J。 在 问题 域 可 以 用 小 的 实体 搭建 出 大 的 实体 ， 那 么 在 解答 

域 ， 设 计 得 当 的 DSL 应 该 给 予 你 同样 灵活 的 组 合 能 力 ， 让 你 能 够 就 像 编排 问题 域 的 各 种 机 能 一 样 
编排 起 各 种 DSL 抽 象 。 


现在 你 已 了 解 什么 是 DSL， 接 下 来 看 看 它 与 你 用 过 的 其 他 编程 语言 有 何不 同 。 
1.DSL 与 通用 编程 语言 的 区 别 
领域 专用 语言 这 个 名 字 其 实 已 经 给 出 了 答案 。 你 应 该 牢记 DSL 最 重要 的 两 个 特征 : 


。 一 种 DSL 专 门 针 对 一 个 特定 的 问题 领域 ; 
。DSL 含 有 建 模 所 需 的 语法 和 语义 ， 在 与 问题 域 相 同 的 抽象 层次 对 概念 建 模 。 


用 DSL 编 程 时 只 需要 处 理 问题 域 的 复杂 性 ， 你 用 不 着 操心 解答 域 的 实现 允 节 和 其 他 非 必要 因素 。 
(关于 非 本 质 复 杂 性 的 讨论 ， 参 见 附 录 A。) 因此 ， 多 数 情况 下 非 专 业 程序 员 也 能 用 好 DSL， 前 提 
是 DSL 具 备 了 适当 的 抽象 层次 。 数 学 家 能 轻松 学 会 使 用 Mathematica 进 行 工 作 ， UI 设计 师 写 起 
HTML 来 怡然 自得 ， 就 连 硬件 工程 师 都 有 VHDL ( 超 高 速 集成 电路 硬件 描述 语 一 种 在 电子 设 
计 自动 化 即 EDA 领 域 使 的 DSL) 可 用 ， 这 些 都 是 非 专 业 程序 员 使 用 DSL 的 列子 。 因为 要 适应 E 
程序 员 ，DSL 必 须 比 通用 编程 语言 更 符合 用 户 的 直觉 。 


程序 并 不 是 一 次 写 完 了 事 ， 之 后 还 要 维护 更 新 很 多 年 ， 而 其 中 负责 “照料 ”程序 的 人 很 可 能 并 没有 
参与 设计 最 初 的 版 末 。 因 此 ， 沟 通 是 一 个 关键 问题 : 程序 要 有 能 力 与 它 的 目标 读者 沟通 。 对 于 
DSL， 编 译 器 和 CPU 都 不 是 它 的 直接 读者 ， 有 心理 解 程序 行为 的 人 类 大 脑 才 是 它 的 “倾诉 对 象 ”。 
语言 要 利于 交流 ， 要 让 代码 片段 能 够 充分 体现 出 建 模 者 的 思考 过 程 。 这 就 要 求 在 设计 DSL 的 时 1 
为 语法 和 语义 都 找 准 适 合用 户 的 抽象 层次 。 


2.DSL 对 业务 用 户 的 益处 
讨论 到 这 里 ， 我 们 可 以 总 结 出 DSL 区 别 于 一 般 高 级 编程 语言 的 两 大 特质 ， 如 下 。 


。DSL 给 予 用 户 更 高 层次 的 抽象 。 也 就 是 说 用 户 不 必 分 心 于 具体 数据 结构 的 微妙 差别 等 低层 次 
细节 ， 而 是 专注 于 解决 手头 的 问题 。 


。DSL 只 提供 有 限 的 语汇 ， 不 超出 它 的 领域 范围 。 正 因为 DSL 排 除了 多 余 的 东西 ， 它 外 
用 户 专注 于 被 建 模 的 问题 。DSL 的 “视野 * 不 似 通 用 编程 语言 那 般 横 向 发 散 。 


对 于 不 懂 编 程 的 领域 专家 ， 这 两 种 特质 使 DSL 成 为 了 更 便利 的 工具 。 业 务 分 析 员 了 解 的 领域 ， 就 
是 DSL 抽 象 出 来 的 领域 。 


随 春 越 来 越 多 的 编程 语言 支持 更 高 层次 的 抽象 设计 ， 各 种 DSL 正 翘首 以 待 成 为 现今 程序 开发 生态 
系统 的 重要 组 成 部 分 。 不 懂 编 程 的 领域 分 析 师 肯定 会 在 其 中 扮演 重要 的 角色 。 如 果 有 DSL， 分 析 
师 从 一 开始 就 能 撰写 正确 的 测试 脚本 。 测 试 脚本 不 是 为 了 立即 运行 ， 而 是 来 保证 编写 程序 时 充 
分 考虑 到 各 种 可 能 的 业务 场景 。 只 要 DSL 的 设计 找 准 了 抽象 层次 ， 让 领域 专家 直接 浏览 定义 业务 
地 辑 的 源 尺码 就 不 是 什么 异 平 寻常 的 事情 。 他 们 将 可 以 验证 业务 规则 ， 然后 把 检查 结果 直接 反馈 
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现在 ， 我 们 已 经 了 解 到 DSL 可 以 给 开发 者 和 领域 用 户 带 来 不 少 好 处 ， 下 面 来 认识 一 下 目前 已 在 业 
界 广泛 使 用 的 几 种 领域 专用 语言 。 
1.3.2 流行 的 几 种 DSL 
DSL 应 用 非常 广泛 。 我 敢 肯 定 你 开发 过 的 每 一 个 应 用 程序 都 用 到 不 少 DSL， 虽 然 有 些 不 一 定 被 打 
上 DSL 的 标签 。 表 1-1 列 举 了 几 种 最 常用 的 DSL 。 
表 1-1 常用 的 DSL 
DSL 用 途 

SQL 型 数据 库 语 言 ， 用 于 查询 和 变更 数据 

Ant 、 Rake 、 Make 于 软件 系统 构建 的 语言 

CSS 单 式 表 描 述 语言 

YACC、Bison、ANTLR | 几 种 用 来 生成 语法 分 析 器 的 语言 

RSpec、Cucumber Ruby 环 境 下 的 行为 驱动 测试 语言 

HTML Web 的 标记 语言 
你 平时 经 常用 到 的 DSL 肯 定 不 止 这 些 。 你 能 分 辨 出 它们 有 什么 共同 特征 吗 ? 来 看 下 面 几 点 。 

。 所 有 DSL 都 有 对 应 专门 的 领域 。 每 种 语言 都 拥有 “有 限 表达 力 ” (limited expressivity) ， 而 你 
只 能 用 一 和 IDSL 解 决 其 特 定 领域 的 问题 。 你 不 昌 ] 能 上 1! 用 HTML 搭 建 出 一 套 货 运 管理 系统 

定义 ”马丁 - 福 勒 (Martin Fowler) 用 “有 限 表 达 力 ”来 描述 DSL 最 重要 的 特征 。 在 2009 年 DSL 开 

发 者 会 议 的 主题 演讲 (参见 1.9 节 文献 [3]) 上 ， 他 提出 有 限 表达 力 是 DSL 与 通用 编程 语 言 的 根 

本 区 别 。 通 用 编程 语言 可 以 给 任何 事物 建 模 ， 而 一 种 DSL 只 能 给 一 个 专门 领域 建 模 ， 可 是 表现 

力 更 强 。 

。 使 用 表 1-1 列 出 的 语言 (以 及 其 他 被 广泛 使 用 的 语言 ) ， 一 般 即使 用 它们 所 建立 的 抽象 。 在 绝 
大 多 数 情况 下 ， 你 并 不 需要 了 解 语 言 的 底层 实现 。 每 种 DSL 都 提供 了 一 套 供 你 搭建 解答 域 模 
型 的 契约 ， 为 了 搭建 更 复杂 的 模型 可 以 把 不 同 的 契约 组 合 起 来 ， 但 终归 不 需要 跨 出 契约 的 范 
围 和 深入 DSL 的 实现 层次 。 

。 任何 一 种 DSL 都 具备 充分 的 表达 能 力 ， 足 以 使 不 懂 编 程 的 用 户 理解 程序 的 意图 。DSL 并 非 
开发 者 提供 的 一 套 API 而 已 ， 它 的 每 一 个 API 都 以 领域 语汇 精炼 地 表达 丰富 的 含义 。 

。 用 任何 一 种 DSL 编 写 的 源 代码 文件 ， 即 使 数 月 之 后 再 重新 翻 看 ， 你 也 可 以 立即 领会 当初 的 意 
事实 证 明 ， 依 托 DSL 进 行 开 发 更 能 鼓励 开发 者 与 信 页 域 专 家 进行 更 好 的 交流 。 这 是 其 很 重要 的 优 
点 。 。 借助 DSL， 不 擅长 编程 的 领域 专家 不 必 勉 强 转变 为 一 般 程序 员 。 得 益 于 DSL 的 表现 力 和 其 特 

意 以 沟 i 通 为 目的 提供 的 API， 领 域 专家 可 以 理解 解答 域 的 抽象 实现 了 哪些 业务 规则 ， 以 及 其 实现 是 
否 充分 盖 了 所 有 可 能 的 业务 场景 。 

RN 段 有 中 发 意义 的 Rakefe 代 码 片段 ， 示 例 中 所 用 的 Rake 也 是 表 1-1 所 列 的 一 种 DSL， 主 要 

] 构建 Ruby 语 言 编写 的 系统 


desc "Default Task" 
task :default => [ 


Rake::TestTask.new { |t| 
t.libs << "test" 
t.pattern = 'test/* 


:test ] 


_test.rb' 


t.verbose = true 
t.warning = false 


这 段 代码 建立 一 系列 单元 测试 ， 


段 代 码 的 意思 


你 所 熟悉 的 语汇 ， 


ij 且 给 DSL 使 


以 这 种 语 育 将 其 语义 设 定 到 符合 开 发 者 预期 和 到 
须 谨 记 使 表现 力 
基本 术语 ; 请 了 解 一 下 相关 定义 ， 


融 交 易 员 群 体 使 有 


的 DSL， 你 必 
加 内 容 简 要 说 明 交 易 系 统 的 一 些 


书 所 用 的 DSL 示 例 


用 者 提供 了 简单 明了 的 界面 。Rake 的 使 


[eb 金融 中 介 系统 ， 交 易 和 结算 


交易 在 两 方 (交易 双 方 ) 之 间 进 行 ， 


是 承诺 ， 需 要 在 交易 发 生 


素 确 定 ， 如 实行 交易 的 具体 市 场 、 训 


A 
二 


每 一 笔 交 易 都 对 应 一 个 现金 
决 于 若干 因素 ， 例 如 基本 价值 


遵照 交易 市 场 的 规章 进行 证 


后 的 规定 天 数 内 完成 结算 。 进行 结算 的 日 期 称 为 结算 日 ， 
正 券 的 生命 周期 、 交 易 的 性 质 、 实 行 交 易 的 日 其 


价值 。 现 金价 值 


是 购买 证 券 的 一 方 应 付出 的 金钱 数量 


、 印花 税 、 经 


交易 在 证 券 交 易 所 成 交 后 ， 其 
统计 算出 所 有 的 细节 事项 : 结 


详情 铀 输入 到 交易 


算 日 、 交 易 


设计 DSL 的 时 候 ， 你 要 时 刻 把 使 用 者 放 在 心 上 。 


at 


要 。 你 会 在 后 面 的 宣 

DSL 怎 样 更 好 地 在 问题 域 和 解答 
的 认识 。 

1.3.3 DSL 的 结构 


图 1-3 展 现 了 DSL 脚 本 怎样 


学 习 如 何在 用 户 
域 之 间 建 立 映 射 ， 填 补 图 


税 、 佣 金 


元 用 
最终 的 现金 价值 。 


下 


站 


并 把 它们 作为 默认 任务 来 运行 。 即 使 你 不 懂 Ruby， 也 不 会 看 错 这 
它 的 表达 能 力 没有 受 影响 。 这 是 怎么 做 到 的 ? 它 各 处 重 启 LE 


E 解 力 的 抽象 层次 。 同 样 ， 
层次 符合 交易 台 上 的 人 的 预 


券 与 现金 之 间 的 互 换 。 交 
根据 震 


骨 (交易 日 


因为 这 些 概念 会 反复 


如 果 打 算 开 发 一 种 给 金 
明和 经 验 。 这 里 的 附 


现在 本 


多 只 


° 现金 价值 取 


机 构 的 后 合 完成 一 个 交易 充实 这 程 ， 


交易 系 


o。DSL 的 


各 


将 共通 语汇 联系 到 解答 


问题 域 制 


| 品 


域 的 实现 模型 。 


解答 域 制品 


和 同 | 
da 


| 
a 


面向 领域 用 户 的 界面 


1-2 缺 失 的 一 些 环 节 ， 使 你 对 此 


表现 力 和 粒度 要 尽力 满足 用 户 理解 的 需 


DSL 的 实现 


感觉 最 自然 的 抽象 层次 上 设计 DSL。 现 在 我 们 先 来 考 


BG 
更 全 面 


Ee DSL 脚 本 将 实现 模型 表示 为 领域 语言 


WY 


。 脚 本 中 的 用 词 都 出 自 共 通 语汇 ， 使 用 户 对 语言 感觉 


设计 得 当 的 DSL 应 该 体现 以 下 三 项 原则 ， 以 便 与 领域 用 户 更 好 地 “沟通 ”。 
。DSL 要 为 问题 域 制品 提供 直接 的 映射 。 如 果 问 题 域 有 一 个 名 为 Trade 的 实体 ， 那 么 DSL 脚 本 就 
必须 包含 同样 名 称 同样 角色 的 一 个 抽象 。 
。DSL 脚 本 必须 使 用 问题 域 的 共通 语汇 。 这 些 语汇 将 成 为 开发 者 与 业务 用 户 增 进 交流 的 催化 
剂 。 如 图 1-3 所 示 ， 当 业务 用 户 与 软件 中 的 领域 模型 交互 的 时 候 ，DSL 脚 本 就 是 他 们 的 用 户 界 


。DSL 脚 本 必须 对 底层 实现 进行 抽象 。 
用 。DSL 脚 本 


1 非 本 质 复杂 性 
关 的 复杂 性 。 


四 O 


中 不 可 以 


(accidental complexity) ， 


这 是 抽象 设计 的 一 项 重 
因为 实现 细 贡 而 引入 的 非 本 质 复杂 性 。 


与 本 质 复 杂 性 (essential complexity) 相对 


出 现 


指 程序 


J 人 Y, 


本 质 复 杂 性 是 


在 图 1-3 中 ， 
这 些 原则 ， 
一 “ 当 用 


“DSL 脚 本 ” 节 


de Eb 充分 发 挥 与 领域 用 户 “ 沟 通 ” 的 效果 。 
户 运行 软件 时 DSL 脚 本 及 其 仿 


xi 俱 来 


村 


不 可 避免 的 ， 而 非 本 质 杂 性 却 是 


ZE 


发 过 程 中 
于 解决 问题 的 手段 而 产生 的 。 


原 见 ， 对 于 DSL 的 设计 同样 ; 


1.4DSL 的 执行 模型 


领域 专家 i 


通过 DSL 脚 本 理解 领域 模型 和 业 


与 其 他 市 点 的 联系 即 为 以 上 


现 模型 是 如 何 呈 现 给 用 户 的 。 


务 规则 ， 


放下 DSL 无 非 是 履 着 FT 


上 三 项 原则 的 形象 表示 。 只 要 在 设计 中 牢记 
下 一 节 将 讲述 DSL 的 执行 模型 


而 开发 者 负责 实现 DSL 这 个 技术 文 撑 3 


语 


于 宿 言 之 上 的 一 个 抽象 层 ， 向 业务 


FE 语言 ， 


详 见 1.5 节 


纲 的 、 


HH 
译 者 注 


与 问题 本 身 无 


FE 台 。 大 


和 户 提供 领域 友好 的 界面 。 


的 DSL 分 类 。) 可 以 这 么 说 ， 


上 实现 另 一 和 


并 不 通过 内 


出 的 DSL 实 现 方式 我 们 放 到 1.5 节 讨论 


图 1-4 
.脚本 


1 


2 


3. 


展示 了 二 和 


的 解答 域 模 


最 常见 


直接 解 


1 语言 5 这 和 有 


般 方 式 实现 ， 


用 一 种 语 二 现 另 一 种 语言 的 概念 有 
也 许 开 发 团队 会 为 DSL 特别 设计 一 
， 现 在 先 来 看 看 怎样 执行 DSL 脚 本 。 


的 DSL 脚 本 执行 方式 。 
型 可 以 


解释 


.在 虚拟 机 上 


JVM | 


运行 脚本 。 
开发 的 DSL 有 
了 的 字 节 码 。 


UNIX 中 的 微型 


你 要 做 的 如 


情 就 是 对 痪 
有 时 候 称 为 元 语言 


培训 


学 


一 和 有 


定制 |i 


。 可 能 有 


吕 。 个 同 


类 


编程 语言 awk 和 sed 都 是 能 
1 执 。 任 


接 执 行 ， 和 
安 


却 本 遵照 第 二 种 执行 模型 


门 会 在 运行 


会 在 宏 展开 
码 之 前 ， 存 


阶段 


编译 时 元 编程 能 力 。 当 用 
前 被 转 i 
展开 成 一 般 的 Lisp 成 分 


这 样 的 语言 开发 DSL 


过 执行 的 DSL 。 
何 JavaDSL 脚 本 的 语义 模型 


1 都 生成 在 


个 解释 器 


圣 成 一 般 语 法 成 分 


A 


详 见 附录 B) 。 对 于 这 类 语言 ， 


在 


FF 法， 


1 索 拟 机 生 


时 ， 开发 者 在 源 代码 中 加 入 一 坚 
。Lisp 通 过 宏 来 支持 这 种 3 


Lisp 宏 
成 字 证 


在 一 个 对 源 


尺码 进行 转译 的 中 间 阶 段 。 


解答 域 制品 (类 、 方 法、 模块 ) 


(被 实现 ) 


z 一 由 
DSL 脚 本 i 
A 
“A 
# 和 解答 域 模型 
o | | 
Ne 加 加 同 同 。 源 代码 转译 


@ 生成 字 节 码 后 执行 


BARA ® 


图 1-4 DSL 脚 本 的 三 种 执行 模型 。 实 现 了 解答 域 模型 的 程序 可 以 直接 执行 @; 可 以 编 成 字 节 码 后 
执行 @; 可 以 先 对 源 代 码 进行 转译 ( 像 Lisp 宏 ) ， 然 后 生成 字 节 码 再 执行 @ 


熟悉 三 种 最 常见 的 DSL 脚 本 执行 模型 之 后 ， 我 们 回头 看 看 代码 清单 1-1 中 老 鲍 摆弄 的 那 段 DSL。 你 
会 发 现 ， 不 管 选 择 什 么 样 的 实现 语言 ，DSL 肢 本 下 面 必 定 有 一 个 语义 模型 作 支 撑 。 这 个 语义 模型 
可 以 是 Ruby 或 Scala 之 类 的 宿主 语言 ， 也 可 以 是 工作 在 蹦 蹦 高 证 券 公司 的 程序 员 专 为 金融 交易 DSL 
设计 的 一 种 定制 语言 。 


以 常用 的 构建 工具 Ant 为 例 ， 它 向 用 户 提 供 了 一 种 基于 XML 的 DSL。 当 看 到 下 面 的 XML 片段 时 ， 
开发 者 会 认为 它 表 达 的 都 是 一 些 熟悉 的 概念 。 我们 很 容易 看 懂 它 的 任务 目标 ， 即 构建 一 个 jar ， 


| 


<target name="jar" depends="compile"> 
<mkdir dir="${build.dist}"/> 
<jar jarfile="${build.dist}/${name}-${version}.jar"> 
<fileset dir="${build.classes}" includes="**"/> 
<fileset dir="${src.dir}"> 
<include name="*"/> 
</fileset> 
</jar> 
</target> 


这 段 DSL 脚 本 的 背后 有 一 个 语义 模型 ， 其 实现 用 Java 类 、 方 法 和 包 的 形式 建立 “任务 ”`\“ 依 赖 * 等 胡 
。 开 发 者 在 使 用 Ant 时 不 需要 越过 DSL 接 口 去 深究 Ant 的 内 部 实现 ， 当 然 ， 因 为 Ant 是 一 个 可 扩展 
多 框架 ， 所 以 还 是 存在 例外 情况 ， 但 也 仅仅 不 过 是 例外 。 


昌 前 为 止 ， 我 们 讨论 的 DSL 脚 本 主要 是 通过 扩展 宿主 语言 来 设计 的 ， 但 DSL 脚 本 并 不 只 这 一 种 类 
型 。 DSL 还 可 以 按 其 实现 方式 进行 分 类 。 下 一 市 将 阐述 DSL 的 分 类 法 。 


1.5 DSL 的 分 类 


DSL 用 领域 语言 来 表达 。 领域 的 内 池 越 丰富 ，DSL 的 表现 力 就 应 当 越 强 。 对 于 领域 用 户 来 说 ，DSL 
帮助 他 理解 领域 的 来 龙 去 脉 ， 至 于 开发 者 怎么 实现 其 底层 模型 ， 这 一 点 并 不 重要 ， 只 要 DSL 脚 本 
能 提供 他 对 领域 抽象 的 一 致 访问 就 行 了 。 


IT 二 


最 常见 的 分 类 方法 是 按照 DSL 的 实现 途径 来 分 类 。 马 丁 : 福 勒 曾 将 DSL 分 为 内 部 和 外 部 两 大 类 ， 
的 分 类 法 得 到 了 绝 大 多 数 业 罩 人 士 的 认可 和 沿 袭 。 内 部 与 外 部 之 分 取决 于 DSL 是 否 将 一 种 现存 语 
二 作为 宿 - FE 语言 ， 在 其 上 构建 自身 的 实现 。 内 部 DSL 也 称 内 髓 式 DSL ， 因 为 它们 的 实现 徐 入 到 宿 
主语 言 中 ， 与 之 合 为 一 体 ee 步 的 叙述 ， 届时 我 们 将 演示 如 何 用 
Ruby、Groovy、Scala、Clojure 等 JVM 语 言 实 现 DSL。) 外 部 DSL 也 称 独立 DSL ， 因 为 它们 是 从 零 
人 而 不 基 了 任何 现 有 福王 滞 吉 的 设 褒 建 立 。 第 7 章 和 第 有 8 章 将 继续 介 绍 夕 
HhPDSL ° 


除了 这 两 大 类 ， 还 有 新 出 现 的 一 些 DSL 开 发 范式 。 例 如 ，Intentional Software 
(http://www.intentsoft.com/ ) 等 公司 推出 了 创建 非 文 本 型 DSL 的 工具 。 像 这 样 的 一 些 发 展 和 增长 
趋 舅 评 见 第 9 至 。 目 前 我 们 暂且 把 注意 力 放 到 两 个 主要 类 别 上 ， 通 过 一 些 例子 来 看 下 它们 各 自 的 特 


i 


1.5.1 内 部 DSL 


内 部 DSL 将 一 种 现 有 编程 语言 作为 宿主 语言 ， 基 于 其 设施 建立 专门 面向 特定 领域 的 各 种 语义 。 目 
前 使 用 最 广泛 的 一 个 内 部 DSL 是 Rails， 它 是 在 编程 语言 Ruby 的 基础 上 实现 的 。 当 你 编写 Rails 代 
码 ， 实 际 上 就 是 在 运用 Rails 给 Web 开 发 制定 的 各 种 语义 编写 Ruby 程序 。 大 多 数 情况 内 部 DSL 
就 是 在 宿主 语言 之 上 实现 的 库 。2.1 节 将 以 Java 和 Groovy 为 宿主 语言 带 你 开发 一 种 于 订 单 处 理 的 
DSL 。 图 1-5 描 绘 了 内 部 DSL 的 结构 。 


宿主 语言 (例如 Java、Ruby、 


~ 下 N\ 一 Groovy、Cloiure、Scala) 
= J 


cs 
| 
[psu 1 
一 一 本 
解答 域 模型 
。 利用 宿主 语言 的 设施 


。 利 用 宿主 语言 的 配套 工具 
N / 。 局 限于 宿主 语言 所 提供 的 语法 和 语义 
图 1-5 ”利用 现 有 宿主 语言 及 其 设施 来 实现 内 部 DSL 


如 图 1-5 所 示 ， 内 部 DSL 脚 本 只 是 在 用 宿主 语言 实现 的 抽象 上 进行 了 少许 修饰 。 我 们 再 来 看 看 外 部 
DSL 。 


1.5.2 外 部 DSL 


外 部 DSL 是 从 零 开 发 的 DSL， 在 词法 分 析 、 解 析 技 术 、 解 释 、 编 译 、 代 码 生成 等 方面 拥有 独立 的 
设施 。 开 发 外 部 DSL 近 似 于 从 零 开 始 实现 一 种 拥有 独特 语法 和 语义 的 全 新 语言 。 构 建 工具 make 、 
语法 分 析 器 生成 工具 YACC、 词 法 分 析 工 具 LEX 等 都 是 常见 的 外 部 DSL。 当 然 ， 外 部 DSL 实 现 的 复 
0 巴 有 多 丰富 的 内 涵 。 一 般 来 说 ， 外 部 DSL 并 不 需要 像 完善 的 语言 那么 复杂 。 
第 7 章 和 第 8 章 会 给 出 大 量 示例 。 图 1-6 展 示 了 外 部 DSL 的 结构 是 如 何 基于 定制 的 语言 设施 形成 的 。 


人 


网 “ia 


解答 域 模型 


语法 分 析 / 解 释 执 行 


定制 的 语言 设施 
。 词法 分 析 器 
。 语法 分 析 器 


图 1-6 你 需要 为 外 部 DSL 自行 开发 语言 处 理 的 设施 。 设 施 包 括 一 般 高 级 语言 实现 中 常见 的 词法 分 
析 器 、 语 法 分 析 器 和 代码 生成 器 等 。 注 意 ， 各 部 分 的 复杂 程度 取决 于 语言 的 精细 程度 


图 1-6 展 示 了 外 部 DSL 的 一 般 组 成 部 分 。 在 实际 开发 中 ， 上 面 列 出 的 各 部 分 未 必 全 都 用 得 上 ， 而 且 
你 可 能 需要 根据 语言 的 复杂 程度 决定 合并 其 中 一 些 组 成 部 分 。 


sd 不 一 定 ， 很 多 时 候 图 形 化 的 表示 更 加 一 目 了 然 。 详 情 请 看 


1.5.3 非 文 本 DSL 


除了 内 部 和 外 部 DSL， 业 界 还 有 一 种 正在 增长 的 趋势 ， 即 倾向 于 发 展 更 丰富 的 领域 建 模 手段 。 
DSL 是 领域 的 一 种 表示 形式 ， 但 其 定义 中 并 没有 硬性 规定 这 种 表现 形式 或 语言 必须 是 文本 形式 
的 。 0 尺码 用 作 表 达 领 域 知识 的 媒介 太 过 单薄 ， 有 了 时 无 力 胜任 。 他 们 常 
给 出 以 下 理由 : 


。 文 本 允许 的 标识 符号 有 限 ， 限 制 了 对 领域 问题 的 表达 自由 ; 
。 很 多 领域 问题 可 以 通过 电子 表格 、 图 形 化 模型 等 丰富 的 制品 形式 更 好 地 展现 给 领域 用 户 ; 
。 在 基于 文本 的 脚本 中 ， 领 域 逻 辑 常 散落 在 曲折 交错 的 语法 结构 里 ， 不 经 意 地 增加 了 复杂 性: 
。 领 域 专家 操作 起 形象 化 的 模型 总 是 比 操作 源 代码 更 自如 


出 于 以 上 原因 ， 一 种 新 型 的 DSL 正 迅速 成 为 收集 和 建 模 领域 知识 的 新 一 代 手 段 。 领 域 用 户 通过 一 
种 “投影 编辑 器 ”(Projection Editor) 观察 和 处 理 领域 知识 的 表现 形式 。 投 影 编辑 器 可 以 将 领域 的 
适当 视图 投影 给 用 户 ， 用 户 可 对 其 做 各 种 调整 ， 无 需 编写 哪怕 一 行 代码 。 然 后 ， 投 影 编 辑 器 在 后 
台 生 成 代码 对 用 户 的 意图 建立 模型 。Intentional 公 司 的 DSL Workbench (http://www.intentsoft.com 
和 JetBrains 公 司 的 Meta Programming System (MPS，http://www.jetbrains.com/mps ) 是 两 种 可 了 
建立 丰富 形态 DSL 的 建 模 工具 。 第 9 章 讨论 基于 DSL 进 行 开发 的 未 来 趋势 ， 列 举 更 多 这 方面 的 例 
子 ， 也 更 详细 地 介绍 了 这 类 工具 提供 的 功能 。 


把 DL 分 成 内 部 、 外 部 、 非 文本 的 DSL 三 大 类 ， 只 是 广义 地 看 待 不 同 的 DSL 实现 方式 。 若 从 实用 性 
出 发 ， 你 可 以 把 非 文 本 DSL 完全 看 做 外 部 DSL， 因 为 用 来 实现 其 API 的 底层 设施 并 非 宿主 语言 。 


现在 我 们 对 什么 是 DSL 有 了 相当 的 认识 ， 也 知道 如 何 用 它们 增进 开发 者 与 领域 用 户 的 沟通 ， 那 么 
在 什么 情况 下 需要 创造 一 种 DSL? 应 不 应 该 每 开发 一 个 程序 都 编写 一 种 DSL? 还 是 说 存在 一 些 特 


定 的 条 件 ， 在 那样 的 情况 下 采用 基于 DSL 的 天 


1.6 何 时 需要 DSL 


每 个 应 用 程序 的 业务 规则 都 应 该 明确 、 
种 DSL， 把 原来 写成 time() - 1209600 的 时 间 表 示 


户 可 能 产生 巨大 的 影响 。 


可 读 、 


你 应 不 应 该 在 下 一 个 项 目 中 使 用 基于 DSL 的 天 


DSL 跟 任何 一 种 技术 一 样 ， 有 其 暗藏 的 危险 。 身 为 开发 者 ， 你 比 任何 人 都 更 有 资格 判断 眼前 的 问 
题 是 否 需 要 用 DSL 来 建 模 。 为 此 ， 你 需要 了 解 DSL 通 常会 有 的 一 些 优点 和 缺点 。 


1.6.1 优点 


发 ? 1 


发 特别 有 利 ? 


。DSL 是 对 业务 规则 建 模 的 最 佳 


FE 决定 之 前 ， 你 应 该 先 拓 量 


基 
会 用 上 一 些小 的 DSL 引 警 。 当 你 开 
择 之 后 再 做 最 后 决定 。 下 面 提供 的 一 
1. DSL 更 具 表 现 力 


于 DSL 的 7 生发 在 领域 复杂 度 较 高 时 可 以 提供 


台 规 划一 个 复 


共 更 高 的 巴 
杂 的 建 模 项 目 时 ， 应 该 在 有 意识 地 


乡 式 变 为 2 .weeks ,ago 


手段 。 开 发 
不 难 ， 所 它 对 用 


各 种 优 缺 点。 


报 。 前 面 提 过 ， 几 乎 你 经 手 的 每 个 项 目 都 


一 些 论点 将 


DSL 趋 向 于 提供 一 种 覆盖 面 小 、 范 围 集 中 的 API 接 


义 。 用 户 热爱 DSL。 


2. DSL 更 精炼 


因为 精炼 ，DSL 易 于 观看 、 观 察 、 设 想 、 展 示 。Dan Roam (参见 1.9 节 文献 [2]) 称 之 为 视觉 化 , 


助 于 你 决定 是 否 采用 基于 DSL 的 玫 


权衡 过 各 种 选 
发 方式 。 


， 处 理 的 各 种 抽象 概念 都 具有 领 


考 的 四 个 步 又 。DSL 的 精炼 性 缩短 了 程序 与 问题 之 间 的 语义 距离 。 


3. DSL 设 计 于 更 高 的 抽象 层次 


DSL 不 需要 应 对 低层 次 的 语言 构造 、 


数据 结构 优化 及 其 他 实现 手法 。 相反 ， DSL 在 


层次 体现 领域 知识 ， 比 起 一 般 基 于 通用 编程 语言 的 人 
懂 编 程 的 领域 专家 的 需求 。 


用 。 这 个 特点 使 得 DSL 符 合 许多 不 懂 


4.DSL 的 回报 更 高 


从 开发 生命 周期 的 长 远 来 看 ， 基 于 DSL 的 天 


5. 基于 DSL 的 开发 容易 扩大 规模 


: 现 层次 ， 更 便于 领域 知识 ,的 保 在 、 验证 和 重 


如 果 项 目 团队 对 于 特定 编程 语言 的 掌 


域内 的 精确 语 


个 更 有 利 的 


F 发 趋向 于 产生 较 高 的 回报 。 
旦 程度 不 一 ， 可 以 让 熟练 的 程序 员 先 集中 


精力 实现 DSL， 然 


后 给 其 他 成 员 使 用 。 因 为 DSL 的 抽象 层次 较 高 ， 所 以 更 易于 学 习 掌握 ， 可 以 充当 一 种 扩充 开发 团 


队 的 载体 。 
任何 一 和 范式 都 有 其 优点 ， 基 于 DSL 的 天 
的 开发 。 下 面 是 DSL 通 常 存 在 的 一 些 潜在 危险 ， 


1.6.2 缺点 


DSL 的 所 有 缺点 都 可 以 关联 到 软件 天 


发 生命 周期 


招致 额外 成 本 的 实现 开销 。 


Hr 
过 


发 范式 也 不 例外 。 我 们 会 在 第 3 章 继续 讨论 基于 DSL 
它们 在 开发 项 目 中 的 出 现 会 令 你 大 为 头疼 。 


千言 设计 很 难 


实现 DSL 是 一 种 语言 设计 工作 ， 而 语言 设计 是 复杂 的 任务 ， 且 无 法 全 人 多 取胜 。 顾 及 从 零 开 始 设 

和 种 语言 的 词法 和 文法 的 复杂 程度 ， 大 多 数 人 选择 将 DSL 寄 身 于 别 的 高 级 语言 之 中 。 即 便 如 
设计 工作 仍然 相当 难 ， 绝 不 是 生 手 程序 员 可 以 胜任 的 。 后 面 几 章 会 谈 到 各 种 语言 特性 以 及 用 

人 

2.DSL 需 要 前 期 投入 

在 项 目 中 引入 基于 DSL 的 开发 也 会 引入 前 期 成 本 。 只 有 当 模 型 的 复杂 度 适 中 ， 这 样 的 代价 才 值得 

接受 。 在 开发 周期 的 后 期 阶段 ， 当 成 本 被 摊 平 之 后 ， 这 样 做 的 好 处 会 最 终 显现 出 来 。 

3. 使 用 DSL 可 导致 性 能 隐忧 

DSL 有 时 候 会 给 程序 带 来 性 能 隐忧 。 毕 竟 ， 它 又 增加 了 一 个 间接 层 。 作 为 项 目 经 理 ， 你 要 考虑 部 

署 规模 、 重 用 范围 等 因素 ， 才 能 决定 是 否 采 用 基于 DSL 的 开发 。 

4.DSL 有 时 缺乏 足够 的 工具 支持 

任何 开发 方法 都 需要 充分 的 工具 支持 才能 在 程序 员 团体 中 普及 。 工 具 支 持 包括 很 多 方面 ， 比 如 有 

无 IDE 集 成 、 单 元 测试 支持 、 语 言 工作 台 (anguage workbench) 、 性 能 分 析 支 持 等 。 如 果 你 的 

DSL 生 成 多 种 目标 语言 用 于 执行 ， 那 么 各 种 语言 之 间 的 互 操作 性 也 是 一 个 潜在 问题 。 

5.“ 学 不 完 的 DSL” 现 象 

任何 一 入 中 部 DS 如 要 冰 ， 和 发 者 另外 学 习 。 内 部 DSL 只 要 求 开发 者 学 习 它 在 现 有 宿主 语言 之 上 营 

造 的 接口 。 开 发 者 经 常 对 又 要 学 习 言 感觉 厌烦 ， 不 仅 因 为 没完 没 了 ， 还 因为 新 语言 的 用 

途 很 有 限 。 

6. DSL 可 导致 语言 间 的 摩擦 

通常 开发 一 个 应 用 程序 要 用 到 不 上 上 一 种 DSL。 当 结合 使 用 多 种 语言 时 ， 人 们 往往 担心 最 终 的 领域 

模型 不 能 保持 一 致 。DSEL 的 组 合 使 用 并 不 简单 ， 因 为 一 般 各 个 DSL 都 是 彼此 独立 地 发 展 起 来 的 。 

如 果 不 小 心 应 对 ， 语 言 的 多 样 性 可 以 导致 各 自 为 政 的 混乱 状态 。 

从 图 1-3 可 以 看 出 ，DSL 是 建立 在 实现 模型 基础 上 的 语言 学 抽象 。 你 把 领域 模型 抽象 得 越 好 ， 就 越 

容易 在 上 面 设计 出 自然 的 语言 。 我 们 来 看 看 模型 应 该 具备 什么 特质 ， 才 能 为 创造 一 种 富 于 表现 力 

的 DSL 黄 定 坚 实 的 基础 。 

1.7 DSL 与 抽象 设计 

本 章 前 面 ， 象 " 这 个 词 泛 指 来 自 领域 、 表 现 出 一 组 联系 紧密 的 行为 的 任何 制品 。 抽 象 只 关 

全 对 象 的 本 夺 局 世 -任何 和 要 的 细节 呈现 给 用 户 。 但 哪些 才 是 本 质 的 部 分 ? 这 取决 于 你 从 

什么 样 的 观察 角度 去 看 待 EF 节 将 介绍 抽象 与 DSL 设 计 的 相关 性 ， 以 及 它 对 于 DSL 的 表现 力 

有 何 影 响 。 

你 将 在 第 5 章 和 第 6 章 了 解 到 ， 设 计 得 当 的 抽象 是 搭建 DSL 的 语言 学 构造 的 基础 。 那 么 ， 怎 样 才能 

使 抽象 设计 得 当 ? 

在 评价 抽象 好 坏 的 各 种 判断 标准 中 ， 我 认为 有 四 种 基本 特质 是 抽象 设计 最 应 该 具备 的 。 表 1-2 总 结 

了 这 四 种 特质 。 


表 1-2 良好 抽象 应 具备 的 特质 


抽象 的 特质 


对 设计 的 影响 


只 公开 那些 向 客户 
作 招 致 困难 


承诺 过 的 行为 。 公 


得 越 多 ， 越 容易 暴露 抽 


象 的 内 部 实现 ， 而 这 会 为 后 


保证 抽象 的 实现 不 包含 任 信 


非 本 质 的 细 


二 


节 


保证 抽象 设计 可 以 在 


不 影响 现 有 客 


户 的 前 提 下 渐进 


FE 


式 发 


Le 


尔 所 设计 的 抽象 


可 以 和 其 


他 抽象 进行 组 合 ， 构 成 更 高 


阶 的 抽 


怎样 设计 出 好 的 
象 设 i 


= 入 


的 详尽 内 容 


象 ? ee 我 不 打算 在 
在 那里 ， 我 会 


见 附录 A 。 


特质 。 请 1 


和 
加 了 解 


读者 在 阅读 下 


此 讨 i 


E 细 


沦 得 太 讨 


， 以 免 偏 离 本 


好 的 抽 


1.8 小 结 


本 章 对 DSL 背 后 
该 领域 的 语汇 来 表 i 


lI- 
i 二 
O 


DSL 应 当 
代 过 程 ， 
过 开发 者 
能 理解 


沙 口 


象 设计 对 于 助 刀 各 下 


有 足够 的 表现 力 ， 这 要 靠 发 挥 窒 
SL 的 设计 过 程 也 一 样 
[领域 专家 的 协作 与 努力 逐渐 
象 的 含义 ， 能 验证 业务 规则 的 实现 ， 


放 % 


为 陌生 的 开发 范式 扩 


现实 世界 
种 现代 语 
Ruby。 位 
敬 请 关注 ! 


要 点 与 最 佳 实践 
。DSL 是 开发 者 和 业务 人 员 之 间 的 交流 媒介 。DSEL 的 设计 了 


。 人 。 请 在 衡量 过 


DSL 的 设计 过 程 必定 是 迭代 的 。 请 为 它 付出 应 有 的 努力 。 
谨 记 DSL 的 语法 必须 满足 最 终 用 户 对 表现 力 的 要 求 。 不 要 过 度 设计 DSL， 那 只 会 使 语法 3 


言 实 现 的 。 


增 


基本 原理 的 元 长 介 


绍 至 此 接近 尾 
汇 作为 媒介 ， 


大 。 有 了 共通 语 


志 。 在 对 一 个 


大 量 真 


实 示例 


J 


章 的 主题 。 
! 列 出 的 每 一 


章 之 前 先 看 一 遍 附录 A。 当 你 能 够 轻松 辨 另 
IDSL 设 计 技 巧 发 挥 效 力 的 益处 。 


计 的 好 坏 时 ， 将 更 


具体 领域 建 模 的 时 候 ， 


DSL 可 以 把 


语 
合 巴 名 


。 你 不 可 能 第 一 


言 的 威力 设 
次 兴 代 就 


计 出 


领域 的 语法 和 语义 带 进 


你 的 实现 要 
井 你 的 解答 模 


恰当 的 


象 * 


象 的 设计 是 一 


得 到 一 和 


1 设计 完 


善 的 DSL ， 0 > 


EB 成 的 。 请 


那 裔 


这 一 部 分 内 容 首 先 从 Java 开 


证 


基础 一 向 是 个 艰 驻 的 过 程 。 茶 喜 你 成 功 完成 了 任 
! 的 DSL 设 计 与 实现 。 第 2 章 将 偏重 介绍 一 些 真 实 存 在 的 DSL， 
台 讲 起 ， 然 后 是 表达 能 力 更 
企 代 表 了 当前 发 展 方向 的 几 种 编程 语言 的 帮助 下 ， 模 型 的 表现 力 会 相应 提高 


各 条 


得 庞杂 
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首 加 实现 的 复杂 性 。 


让 领域 专家 
明 你 的 模型 是 


F 务 。 


尽早 参与 开发 过 程 。 如 果 领 域 专家 
正确 的 ， 


而 且 具 有 足够 的 表现 


接 下 来 ， 你 将 深入 接触 
门 是 用 JVM 平 台 上 的 几 


中 


强 的 Groovy、 和 


[ 作 必 须 


有 领域 专家 参与 。 


;有 利和 不 利 因素 之 后 ， 


4 决定 是 否 投 入 设计 与 


第 2 章 现实 中 的 DSL 


本 章 内 容 
。 初试 设计 第 一 个 基于 Java 的 DSL 
。 利 用 Groovy 改 善 DSL 的 表现 力 
。DSL 的 实现 模式 
。 选择 合适 的 DSL 类 型 
在 第 1 章 里 ， 尔 已 经 看 到 DSL 对 于 开发 团队 与 领域 专家 之 间 沟 通 的 改善 作用 。 我 们 还 介绍 了 DSL 的 


其 文 持 的 不 同 执行 模型 。 然 而 ， 如 果 缺 少 有 意义 的 真实 用 例 ， 空谈 DSL 又 有 什么 用 
呢 ? 在 实际 的 项 目 中 ， 你 赁 什么 判断 设计 DSL 是 比 使 用 传统 软件 开发 模型 更 优 的 解决 方案 ? 本 章 
就 向 你 揭示 真实 世界 中 的 DSL 设 计 。 


首先 ， 我 们 用 一 个 启发 性 的 DSL 示 例 演示 从 初始 设计 、 实 现 到 最 后 优化 的 真实 过 程 ， 示 例 照 旧 来 
金融 中 介 业 务 领域 。 我 们 先 探 讨 几 种 实现 ， 然 后 阐释 在 设计 DSL 实 现 的 过 程 中 会 遇 到 的 一 般 模 
式 图 2-L 展示 本 章 探索 过 程 的 路 线 图 


他 


2 
[e) 


Lo 


把 表现 力 提高 一 点 Groovy 实 现 的 DSL 


了 看 过 了 真实 的 DSL 实 现 ， 下 一 步 做 什么 ? 
p By, 
2.1 一 一 | 可 以 使 之 更 有 表现 力 并 更 简洁 吗 ? 
用 Java 完 成 的 第 一 个 DSL | 


发掘 一 些 普遍 存 在 的 实现 模式 


2 我 有 疑问 ， 应 该 选择 内 部 
3 DSL 还 是 外 部 DSL? 


图 2-1 第 2 章 内 容 的 路 线 图 


本 章 每 一 节 都 会 讨论 真实 世界 中 的 DSL 应 用 实例 ， 它 可 能 以 实现 用 例 的 形式 出 现 ， 也 可 能 是 你 日 
后 可 以 效仿 的 一 套 模式 。 通 读本 章 ， 你 将 学 会 在 对 问题 域 建 模 时 用 DSL 的 编程 范式 思考 问 
题 。 我 们 对 照 一 个 按照 典型 API 思 路 设计 的 模型 和 一 个 按照 DSL 思 路 设计 的 模型 ， 你 会 发 现 后 者 对 

于 领域 用 户 来 说 是 更 具 表现 力 的 表达 形式 。 


2.1 打造 首 个 Java DSL 


例 胜 千言 。 第 1 章 提 到 过 ， 本 书 中 的 例子 主要 来 自 金 融 证 券 领域 ， 作 为 对 实现 背景 的 交代 ， 讲 解 
特地 对 领域 概念 给 出 注解 。 (请 务必 阅读 补充 内 容 中 给 出 的 领域 知识 。) 这 些 概念 注解 除了 帮 
助 你 理解 特定 领域 ， 还 是 你 学 习 DSL 实 现 示例 时 的 参考 资料 ， 方 便 你 翻 查 例子 中 涉及 的 概念 。 因 
为 同一 个 领域 贯穿 了 前 后 的 DSL 示 例 ， 你 可 以 不 断 完 善 和 丰富 它们 。 


在 1.3 节 ， 我 们 看 到 交易 员 老 鲍 摆 弄 了 一 个 DSL 代 码 片 段 ， 对 客户 交易 单 做 提交 到 交易 所 之 前 的 各 
处 理 。 为 了 你 即将 开发 的 第 一 个 DSL， 我 们 再 来 丰富 一 下 这 个 场景 。 


a 


>h 


假设 你 负责 实现 一 种 用 来 处 理 交 易 单 的 DSL， 其 中 的 领域 语汇 与 老 鲍 所 用 的 差不多 。 看 过 第 1 章 之 


后 我 们 知道 ， 领 域 专家 十 推进 DSL 开 发 的 种 


专家 就 能 够 理解 开发 团队 实现 的 ， 


FE 要 驱动 力 。 如 果 有 一 种 表现 力 充分 的 DSL， 领 域 
务 规则 和 逻辑 ， 能 够 在 代码 离开 开发 实验 室 之 前 进行 验证 ， 其 


至 可 能 会 以 DSL 用 户 的 身份 参与 纺 


写 功能 测试 套件 。 专 家 们 丰富 的 领域 知识 可 以 保证 测试 覆盖 巨 


细 靡 遗 ， 不 仅 如 此 ， DSL 经 过 领域 专家 的 阅读 和 使 用 等 同 王 经受 了 一 次 不 折 不 扣 的 可 用 性 测试 。 


[ 轧 金融 中 介 系统 ， 处理 客户 交 


喘 为 项 目 领导 者 ， 你 务必 要 及 早 安排 像 老 饱 那样 的 人 物 参与 到 开发 中 来 。 


易 单 


第 1 章 提 过 ， 交 易 过 程 关系 到 在 市 场 上 严 入 和 卖 出 证 券 ， 期 间 要 遵守 证 券 交 易 规划。 交易 始 目 投 
资 者 通过 注册 中 介 发 出 的 交易 单 指令 ， 这 里 的 中 介 可 以 是 股票 经 纪 人 、 清算 银 行 或 者 财务 顾 
间 。 客户 发 出 的 交易 单 指令 一 般 会 包括 若干 信息 ， 如 打算 交易 ( 买 入 或 卖 出 ) 哪 种 证 券 、 多 少 


数量 、 单 位 价格 等 。 这 些 信息 反映 了 交易 双方 对 成 交 价格 所 作 的 限制 。 从 下 单 到 通 重 知 成 交 包 括 


以 下 步骤 : 


1. 投资 者 向 中 介 下 交易 单 指令 
:了 避 汪 . 


2 中 介 记 录 交 易 单 并 转发 给 证 交 所 ， 


3. 交易 单 被 执行 ， 中 介 接 到 发 回 的 成 交通 知 ; 


4. 中 介 记 录 具 体 的 成 交 信息 ， 


假设 你 的 任务 是 实现 一 段 DSL 代 码 ， 


并 将 通知 转 给 投资 者 。 
用 来 针对 具体 的 窗户 指令 生成 新 的 交易 单 。 组 庸 痪 言 ， 这 种 


语言 必定 由 领域 语汇 构成 ， 并 且 在 有 效 业务 规则 的 语义 约束 下 ， 人 允许 (团队 中 的 老 鲍 ) 任意 


组 合 交易 单 处 理 规则 。 不 必 一 开始 就 纠结 于 最 佳 的 语法 设计 ， 因 为 我 们 在 第 1 章 就 说 过 ，DSL 必 须 
迭代 式 演 进 ， 从 来 不 可 能 一 跃 而 就 。 
择 不 同 的 实现 语言 可 使 其 获得 更 强 的 表现 力 ， 而 我 们 将 最 终 选 择 一 种 令 老 饱满 意 的 语言 。 昌 然 说 


接 下 来 你 会 看 到 我 们 的 交易 单 处 理 DSL 在 逐步 演进 、 通 过 选 


项 目的 第 一 步 不 应 该 把 目标 和 期 望 定 得 太 大 太 高 ， 但 我 们 从 第 1 章 了 解 到 ， 创 造 一 种 DSL 首 先 必 须 


在 所 有 项 目 干系 人 之 间 确 立 共 通 语汇 。 


2.1.1 确立 共通 语汇 


老 鲍 观察 了 一 下 问题 域 ， 很 快 就 


| 


言 结构 成 分 ， 如 表 2-1 所 示 。 


定 核心 需求 ， 随 后 三 两 下 总 结 出 交易 单 处 理 DSL 必 不 可 少 的 语 


表 2-1 初步 总 结交 易 单 处 理 DSL 的 语汇 


领域 概念 


明细 


I 


(了 ) 新 交易 和 


。 可 以 指定 某 交 易 单 为 “全 部 完成 或 放弃 ”(all-or-none) ， 即 要 么 接受 交易 单 指定 的 全 


必须 说 明 票 据 的 名 称 


> 


必须 说 明 是 买 入 还 是 卖 出 


晶 
品 


部 交易 ， 么 不 交易 。 不 存在 部 分 成 交 


(2) 交 易 单 报价 


(3) 交 易 单 定价 


。 要 求 指定 单位 价格 
。 可 以 用 限 价 ”(imit-price) 、 限 价 收 盘 价 ”(limit-on-close-price) 、 限 价 开盘 价 


(imit-on-open-price) 等 形式 设 定单 位 价格 


。 要 求 根据 报价 方案 给 整个 交易 单 定价 
。 报价 方案 可 以 从 预 设 方案 中 选择 ， 也 可 以 由 用 户 


上 


场 设 定 一 个 临时 报价 方案 


有 了 这 张 语汇 表 ， 我 们 就 可 以 着 手 3 


选择 Java 这 种 占据 统治 地 位 的 语言 来 完成 第 一 次 党 


试 。Java 语 言 的 开发 者 数量 无 出 其 丰 


不 管用 Java 开 发 仁和 东西， 这 个 放大 习作 部 是 江 在 的 支持 放 


车 | 


有 写 功能 测试 和 验证 业务 规则 ， 我 们 的 实现 一 定 要 让 他 觉得 舒服 才 行 。 
2.1.2 用 Java 完 成 的 首 个 实现 


Java 是 一 种 1 


性 的 0rder (交易 单 ) 抽象 表达 为 一 个 对 象 。 


1. 建立 交易 单 抽象 Order 


也 


向 对 象 (00) 语言 ， 那 么 设计 DSL 的 第 一 步 自然 就 是 把 老 


量 。 除了 动手 实现 ， 我 们 还 要 探讨 Java 作 为 实现 语言 在 表现 力 方面 的 局 限 。 老 鲍 


自告奋勇 帮 有 我 们 
装 了 客户 交易 单 各 方面 属 


代码 清单 2-1 中 就 是 老 鲍 即将 用 来 处 理 新 交易 单 的 (用 Java 实 现 ) Order 类 。 


代码 清单 2-1 ”为 Java DSL 设计 得 的 交易 单 抽象 


public class Order { 

static class Builder { 
private String security; 
private int quantity; 
private int limitPrice; 
private boolean allorNone 
private int Value 
private String boughtorSold ， 


@ Builder 设 计 模 式 


public Builder() 全 
public Builder buy(int quantity, String security) { 
this,boughtorSold = "Bought"; 
this.quantity = quantity 
this.security security; 
return this; @ 用 方法 链接 手法 实现 的 连贯 


} 
public Builder sell(int quantity, String security) { 
this,boughtorSold = "Sold"; 
this.quantity = quantity 
this,security = security; 
return this; 


public Builder atLimitPrice(int p) { 
this.1limitPrice = p; 
return this; 


} 

public Builder allorNone() { 
this.allOrNone = true; 
return this; 


public Builder valueAs(OrderValuer ov) { 
this.value = ov.valueAs(quantity, limitPrice); 
return this; 


} 

public Order build() { 
return new Order(this); 

} 


} 


private final String security; 人 @ 不 可 交 属 性 
private final int quantity; 

private final int limitPprice; 

private final boolean allOrNone; 

private int value; 

private final String boughtOrSold; 


由 
Au 
请 


private Order(Builder b) { 
security = b.security; 
duantity = b.quantity; 
limitPrice = b.1LimitPrice， 


Value = b.value; 


allOrNone = b.allOrNone,; 


boughtorSold = b. boughtorsold; 


} 
// 获 取 方法 
} 
个 类 的 实现 代码 用 了 一 些 常 见 的 Java 惯 用 法 和 设计 模式 来 增强 其 API 的 表现 力 。Builder 模 式 @ 方 
全 API 的 使 者 分 步 完成 交易 单 对 象 的 构造 。 该 模式 还 结合 了 连 页 接口 @ 的 设计 手法 ， 把 领域 问题 
用 更 易 读 的 方式 呈现 出 来 。 (连贯 接口 将 在 第 4 章 详细 讨论 。) 借助 一 个 可 变 的 builder 对 象 ， 
Order 抽象 的 数据 成 员 获 得 了 不 可 变性 @， 有 利于 实现 并 发 。 使 核心 抽象 获得 不 可 变性 ， 正 是 通 
过 builder 来 构造 对 象 的 一 个 正面 作用 。 
定义 ”Builder 设 计 模式 常用 于 分 步 构 造 对 象 。 它 分 离 了 对 象 的 构造 过 程 与 对 象 的 表示 ， 所 以 不 
同 的 对 象 表 示 可 以 共用 同样 的 构造 过 程 。 详 情 参 见 2.6 市 中 的 参考 文献 [5] 。 
Builder 模 式 的 实现 部 分 就 说 到 这 里 ， 以 后 我 们 再 回头 讨论 代码 中 存在 的 一 些 问 题 。 现 在 ， 我 们 先 
看 看 这 个 实现 会 给 老 鲍 带 来 什么 样 的 DSL 。 
2. 构造 交易 单 
下 面 是 一 段 交易 单 buider 的 应 用 实例 ， 其 中 领域 语汇 的 密度 非常 高 ， 示 例 中 由 API 形 成 的 语言 里 
几乎 可 以 找到 表 2-1 列 出 的 全 部 关键 字 : 
Order 0 = 
new order .Builder() 
.buy(100, "IBM") 
.atLimitPrice(300) 
.allLOrNone( ) 
.ValueAs(new Standardordervaluer()) @ 交 易 单 定价 算法 
.build(); 
虽然 我 们 的 DSL 已 经 用 了 正确 的 语汇 ， 但 本 质 上 还 是 一 段 Java 程 序 ， 仍 然 脱 不 开 Java 编 程 语言 语法 
上 的 限制 和 琐 雁 的 缺点 。 调 用 valueAs 的 时 候 @， 你 需要 指定 一 个 定价 算法 作为 它 的 输入 ， 但 入 
法 只 能 在 当前 上 下 文 以 外 实现 。 这 是 因为 Java 不 直接 文 持 高 阶 画 数 ， 所 以 我 们 没 办 法 优雅 地 就 地 
定义 定价 策略 。 这 个 Java 实 现 的 用 户 只 能 预先 定义 每 一 种 交易 单 定 价 策略 的 具体 实现 。 我 们 把 “ 交 
单 定价 ”的 契约 实现 为 一 个 接口 : 


public interface OrderValuer { 
int valueAs(int qty, int unitPrice)， 


在 Java 中 模拟 高 阶 画 数 

虽然 Java 不 直接 支持 高 阶 画 数 ， 但 是 有 一 些 库 用 对 象 模拟 出 这 种 特性 ， 如 lambdaJ 
(http://code.google.com/p/lambdaj ) 、Google Collections (http://code.google.com/p/guava- 

libraries ) 和 Functional Java (http://functionaljava.org ) 。 如 果 Java 是 你 的 唯一 选项 ， 但 又 希望 对 

高 阶 范 数 建 模 ， 这 几 个 库 不 失 为 可 行 的 途径 。 但 这 些 库 提 供 的 选项 存在 缺点 ， 就 是 较为 烦琐 ， 

而 且 优雅 程度 肯定 不 如 Groovy、Ruby、Scala 等 语言 直接 提供 的 语言 特性 。 


DSL 的 用 户 旬 


对 特定 


定价 策略 分 别 定义 该 接口 的 具体 实现 : 


public class StandardorderVvaluer implements OrderValuer { 
public int valueAs(int qty, int unitPrice) { 
return unitPrice * qty; 


这 时 候 老 鲍 发 现 自己 没 办 法 在 现 : 


淘 随 时 定义 定价 策略 ， 我 们 的 DSL 满 足 不 了 他 一 开始 提 


求 。 这 可 是 个 大 挫折 ， 毕 竟 我 们 J 网 程 的 入 页 域 专家 写 出 有 意义 的 功能 测试 。 


外 ， 老 鲍 还 对 交易 单 处 理 DSL 提 


。 语法 烦琐 语言 中 含有 太 多 


括号 等 


出 了 几 点 意 
令 人 上 


， 如 下 


民 花 综 乱 的 东西 ， 容 易 干扰 不 懂 编 程 的 领域 专家 。 


。 语法 中 与 领域 无 关 的 复杂 性 老 鲍 指 的 是 用 户 必须 显 式 使 用 Builder 类 。 其 实 ， 去 掉 


Builder 类 这 重复 杂 丛 也 全 


不 含 可 变 属性 的 不 可 变 


象 。 那 么 ， 


次 运用 抽象 手 段 把 builder 隐 藏 起 来 ， 


bE 实现 DSL， 只 要 把 Order 类 的 获取 方法 都 改 成 链 式 方法 ， 同 样 能 
构造 出 连贯 接 只 个 过 ， Builder 类 对 抽象 设计 还 有 正面 的 影响 ， 它 促使 我 们 设计 出 一 种 


能 不 能 从 语言 中 去 除 这 些 不 必 要 的 语法 成 分 7? 我 们 可 以 


让 表面 上 的 语法 看 起 来 更 直观 


new Order.toBuy(100, "IBM") 
.atLimitPrice(300) 
.allorNone() 


.build(); 


.ValueAs(new StandardorderVvaluer()) 


个 取 巧 方案 仅仅 将 复杂 性 从 语法 推 


起 来 简洁 多 了 


3. 分 析 Java DSL 


| 


对 


表 2-2 ”Java DSL 的 不 足 和 应 该 


可 否认 ， Java 的 语 法 烦琐 是 一 个 缺 点 ， 


到 的 那些 语法 复杂 性 。 表 2-2 罗 列 了 


到 实现 


加 


hal 
mm 


日 毕竟 使 烦 开 的 部 分 留 在 DSL 的 实现 层面 ， 使 用 


于 代码 中 显 式 出 现 的 Builder 模 式 ，Java 程 序 员 百 分 百 认 可 它 的 作用 ， 也 欠 赏 它 使 API 连 贯 流畅 这 
一 点 。 如 果 DSL 的 用 户 都 是 Java 程 序 员 ， 那 么 我 们 设计 的 这 种 基于 Java 的 DSL 还 算 令 人 满意 。 但 不 
我 们 可 以 选择 一 种 表现 力 更 强 ， 而 代码 更 简洁 的 实现 语言 
来 克服 这 个 缺点 。 下 面 我 们 束 来 详细 分 析 Java 代 码 ， 看 看 是 Java 语 言 的 哪些 特性 导致 了 老 鲍 不 愿 看 
鲍 报 告 的 各 种 不 足 应 该 归 答 的 Java 语 言 特性 。 


交 归 咎 的 Java 语 言 局 限 


DSL 的 不 足 


烦琐 (不 必要 的 括号 和 语法 成 分 ) 


。 里 丁 区 


本 的 Java 语 法 


应 该 归咎 的 Java 语 言 特性 


。 画 数 必须 带 括 


号 。 在 对 象 和 类 上 调用 方法 必须 用 点 号 


。Java 不 是 一 种 可 以 自我 扩展 的 语言 。 很 多 常见 的 惯用 法 必须 通过 额外 的 间接 层 〈 设 


人 ~， 


碍 


计 模 式 ) 来 未 
。 抽象 设计 中 需 
成 为 表 日 


达 
要 构造 一 些 秆 外 的 闫 结构 ， 其 中 一 些 会 在 对 外 公开 的 APT 冒 出 


语法 的 一 部 分 。 前 面 示例 中 的 Builder 类 就 属于 这 种 不 必要 的 语法 障 


。 Java 不 是 一 利 


解释 语言 。 执 行 任何 Java 代 码 片段 都 必须 先 定义 一 个 带 public static 
voidmain 方法 的 类 。 不 管 怎 么 说 ， 在 DSL 用 户 的 眼中 ， 这 就 是 掺 杂 进 来 的 语法 噪音 


不 能 当场 定义 定价 策略 画 数 


。 Java 不 


接 提供 高 


阶 画 数 这 种 语言 特性 


下 


接 下 来 ， 我 们 将 逐一 探索 能 满足 老 鲍 愿望 的 各 种 改进 手段 ， 使 DSL 对 领域 专家 更 加 友好 。 


2.2 创造 更 友好 的 DSL 


DSL 的 表现 力 高 


更 贴近 问题 域 的 要 求 。 为 了 给 下 鲍 创 造 一 更 友好 的 DSL， 我 们 来 尝试 两 种 方案 。 其 一 是 增加 一 


低 只 能 由 用 户 来 评判 。 老 鲍 已 经 指出 我 们 的 Java 方 案 有 好 儿 个 方面 需要 改善 ， 必 须 


个 XML 层 ， 把 亿 


> 


页 域 语言 外 部 化 ， 将 其 表现 为 更 适 


人 类 阅读 的 形式 。 第 二 种 方案 是 彻 故 改 用 一 科 


表现 力 更 强 的 编程 语言 来 实现 DSL 


Groovy ° 


2.2.1 用 XML 实现 领域 的 外 部 化 


业务 上 人 们 常 将 XML 用 作 标 记 语 言 ， 那么 何 个 用 它 来 设计 我 们 的 领域 语言 ” XML 有 充分 的 工具 支 
持 ， 被 所 有 浏览 器 和 IDE 认 可 ， 而 且 有 大 量 框架 和 库 可 用 于 解析 、 处 理 和 查询 。 


有 领域 专家 可 以 脱离 编程 环境 编写 XML 结构 ， 在 这 个 意义 上 讲 XML 可 外 部 化 。 但 XML 完全 是 
声明 式 的 ， 语 法 又 特别 烦琐 ， 还 很 难 表达 控制 结构 。 代 码 清单 2-1 中 的 交易 单 处 理 DSL 如 采用 XML 


脐 肿 结构 。 


<orders> 
<order> 


</order> 


</orders> 


<buySell>buy</buySell> 
<quantity>100</quantity> 
<instrument>IBM</instrument> 
<limitprice>300</limitPrice> 
<allOrNone>true</allOrNone> 
<valueAs>...</valueAs> 


来 表述 ， 差 不 多 就 是 下 面 这 段 代码 的 样子 。 我 已 经 刻意 省 略 了 一 部 分 因为 僵硬 的 XML 语法 造成 的 


XML 本 来 不 是 用 来 编程 的 ， 而 是 用 于 表达 和 站 多 辣 物 全 是 后 为 。DSL 往 往 需 要 包含 一 些 控 


制 结构 ， 而 XML 很 难 优雅 地 表达 这 些 结构 。 


式 配 置 参数 。 但 


民 多 J2EE (企业 版 Java 平 台 ) 框架 通过 XML 提供 声明 
如 果 进 一 步 将 XML 的 用 途 推广 到 编写 业务 逻辑 和 领域 规则 ， 你 很 快 多 会 遇 到 之 前 


Java 实 现 中 存在 的 表现 力 瓶 颈 。 与 其 这 样 迁 回 ， 还 不 如 就 在 我 们 对 和 相伴 的 编程 语言 中 间 寻 找 解 


决 之 道 。 记 住 ， 


2.2.2 Groovy: 


你 现在 可 能 已 经 


语言 才 是 我 们 最 得 力 的 编程 工具 。 
更 具 表 现 力 的 实现 语言 
意识 到 ， 我 们 只 是 在 故 层 实现 语言 的 能 力 范 围 之 内 设计 DSL。DSL 用 户 所 用 的 语 


言 根本 就 是 开发 
语言 的 固有 局 限 ， 
DSL， 这 一 点 已 终 


所 以 ， 我 们 应 该 
台 上 ， 表 现 力 强 


1. Groovy 方 案 
不 断 阅 读本 书 ， 


易 单 处 理 DSL 。 
相同 : 


者 用 来 实现 DSL 的 语言 。 老 鲍 针 对 我 们 的 第 一 次 尝试 指出 的 问题 其 实 都 是 Java 编 程 
不 可 能 在 DSL 实现 中 规避 。 说 到 底 我 们 的 实现 技术 就 是 在 宿主 语言 中 内 婴 
笃 在 1.7 节 讨论 DSL 的 内 部 和 外 部 分 类 时 说 过 。 


考虑 一 种 比 Java 表 现 力 更 强 的 语言 乍 为 宿主 语言 。Groovy 编 程 语言 运行 在 JVM 平 
于 Java， 是 动态 关 型 千言 ， 还 支持 高 阶 画 数 。 


你 会 看 到 Groovy 有 助 于 设计 更 优秀 DSL 的 各 种 语 言 特性 生 。 下 面 来 用 Groovy 实 现 交 
首先 ， 我 们 来 看 一 段 用 Groovy 实 现 的 DSL 代 码 片 段 ， 它 与 之 前 的 Java 示 例 功 能 完全 


newOrder .to.buy(100.shares.of('IBM')) { 


limitPrice 
allOrNone 


300 
true 


valueAs 


{qty, unitPprice -> gqty * 


unitPrice - 500} 


这 段 代 码 创建 


个 新 的 客 


站 公克 早 ， 


完成 购买 或 全 部 放弃 (all-or-none 模 式 ) 
的 Jav 
LL 备 超 
出 


行 结果 和 先前 
因为 Groovy 
语句 结构 ， 创 造 


DSL 的 完整 实现 。 
代码 清单 2-2 


内 容 是 购 


J 买 100 股 IBM 股 票 ， 限 


上 领域 用 户 感 党 


a 示例 是 一 样 的 ， 不 过 ，Groovy 实 现 高 阶 
的 元 编程 能 力 ， 我 们 才 得 
然 的 语言 


1 给 


介 按照 代码 


象 


单 定 


价 300 美 元 ， 购 买方 式 为 全 前 
出 的 公 式 计算 。 


段 


尺码 的 执 


这 


的 能 力 造 成 了 表现 效果 的 差异 。 
以 构造 出 像 100. shares .of('IBM' ) 这 检 


羊 的 DSL 


睛 三 


言 。 代 码 清 


意 2-2 


见 大 


和 证 


Groovy 实 现 的 交易 单 处 理 


EDSL 


Groovy 实 现 的 交易 


单 处 理 


| 


class Order { 


Integer.metaClass.getShares = { -> delegate } 
Integer.metaClass.of = { instrument -> [instrument, 


def security 
def quantity 
def 1LimitPrice 
def allorNone 
def value 

def bs 


buy(su, closure) { 
bs = 'Bought' 


buy_sell(su, closure) 


sell(su, closure) { 
bs = 'Sold' 


buy_sell(su, closure) 


private buy_sell(su, 
security = su[0] 
gquantity = Su[1] 
closure() 


closure) { 


def getTo() { 
this 
} 


methodMissing(String name, args) { 加 通过 这 个 钩子 拦截 对 不 存在 方法 的 调 
order.metaClass.getMetaPproperty(name).setPproperty(order, args) 


getNewOrder() { 
order = new Order() 


valueAs(closure) { @ 通 过 闭 包 实 现 定价 策略 的 就 地 定义 
order.value = closure(order.quantity, order.limitprice[0]) 


自 通过 元 编程 手段 注入 新 的 方法 
delegate] } 


尔 一 起 欣赏 Groovy 实 现 的 妙 处 ， 不 过 和 暂时 仅 限 于 在 这 


个 特定 实现 中 起 到 突出 作用 的 几 项 语 


。Groovy 还 有 很 多 其 他 特性 令 它 成 为 一 种 特别 适合 


来 实现 DSL 的 语言 ， 我 们 等 到 第 4 章 和 


面 介 绍 。 这 个 例子 取得 了 如 此 出 色 的 表现 效 细 


这 再 作 委 


ed 


我 们 看 看 这 应 该 归功 于 哪些 Groovy 特 


2. 通过 methodMissing 动态 合成 新 方法 


Groovy 介 许 调用 不 存在 的 方法 ， 而 methodMissing 作为 钩子 拦截 所 有 这 类 调用 @@。 对 于 交易 单 
处 理 DSL， 每 当 调用 LimitPrice 、al1LOrNone 等 方法 ， 这 类 调用 都 会 被 nethodMissing 拦 
截 下 来 ， 并 被 转换 成 调用 0rder 对 象 属性 的 获取 方法 。methodMissing 钩子 既 能 节约 代码 又 兼 
具 灵 活性 ， 无 需 显 式 定 义 也 可 以 添加 新 的 方法 调用 。 


3. Groovy 元 编程 技术 之 动态 方法 注入 

我 们 通过 元 编程 技术 向 Integer 内 置 类 注入 了 若干 方法 ， 起 到 了 增强 语言 表现 力 的 效果 。 注 入 的 
getShares 方法 为 Integer 类 增加 了 一 个 名 为 shares 的 属性 ， 为 构造 自然 流畅 的 DSL 提供 了 
非常 有 用 的 语言 成 分 @ 

4. 直接 支持 高 阶 画 数 和 闭 包 


这 可 能 是 令 Groovy 等 语言 在 DSL 表 现 力 上 压倒 Java 的 最 重要 的 语言 特性 。 差 别 非常 显著 ， 只 要 比 
较 一 下 Groovy 和 Java 版 本 中 的 valueAs 方法 调用 @ 就 能 领会 。 


现在 Groovy DSL 的 实现 和 应 用 代码 都 已 就 结 ， 但 还 差 一 个 机 制 将 它们 集成 在 一 起 ， 而 且 需 要 建立 
一 个 能 运行 任意 DSL 代 码 的 执行 环境 。 我 们 来 看 看 怎么 做 。 


2.2.3 执行 Groovy DSL 


Groovy 具 备 执行 脚本 的 能 它 的 解释 器 可 以 执行 任意 Groovy 代 码 。 你 可 以 利用 这 一 点 为 交易 单 
处 理 DSL 建 立 一 个 交互 式 的 执行 环境 。 我 们 需要 把 DSL 的 实现 (代码 清单 22) 保存 成 

ClientOrder.groovy 文 件 ， 把 应 用 代码 保存 成 男 一 个 文本 文件 一 一 order.dsl1。 注意， 我 们 要 保证 两 者 
的 路 径 都 在 classpath 中 ， 然 后 向 Groovy 解 释 器 输入 下 面 的 脚本 : 


def dslDef = new File( Clientorder .groovy ' ) .text 
def dsl = new File('order.dsl').text 
def Script = """ 

${dslDef} 

${dsl1} 


new GroovyShell().evaluate(script) 


在 核心 应 用 程序 中 集成 DSL 


本 节 中 的 示例 只 介绍 了 一 种 集成 DSL 实现 和 DSL 应 用 程序 代码 的 方式 。 我 们 将 在 第 3 章 讨 论 于 核 


心 应 用 程序 中 集成 DSL 时 介绍 更 多 集成 方法 。 


DN 


该 示例 使 用 字符 串 拼 接 方 式 来 生成 最 终 的 执行 脚本 。 这 样 的 做 法 有 个 缺点 ， 即 如 有 果 执 行 中 出 现 
错误 ， 栈 跟踪 信息 中 报告 的 行 号 会 对 不 上 源 文 件 order.dsl 中 的 行 号 。 再 次 重申 ，DSL 的 建立 和 与 
应 用 程序 的 集成 是 一 个 送 代 过 程 。 第 3 章 会 探讨 在 应 用 程序 中 集成 Groovy DSL 的 另 一 方法 ， 然 
后 会 对 此 进行 改进 。 


视 闹 你 ! 你 已 经 成 功 设 计 并 实现 了 一 种 令 领 域 用 户 满意 的 DSL。 基 于 Groovy 的 交易 单 处 理 DSL 充 
分 满足 了 对 表现 力 的 要 求 ， 远 胜 于 之 前 的 Java 版 本 。 更 重要 的 是 ， 你 现在 知道 设计 DSL 是 个 迭代 过 
程 。 假 如 当初 没有 开发 Java 版 本 ， 你 会 很 难 想象 实现 语言 的 表现 力 会 有 如 此 重要 的 影响 。 


QQ 


放下 


品 本 书 第 二 部 分 (第 4 章 ~ 第 8 
如 Scala、 ee 
' 多 样 的 DSL 实 现 技术 。 


万 


和 


章 ) 将 介绍 各 种 DSL 实 现 语言 


对 比 不 同 的 语言 


言 实现 ， 你 会 发 现 宿主 


还 有 其 


除了 Groovy， 


他 JVM 语 


语言 


言 的 特性 差异 


从 头 到 
力 可 以 归 


尾 实 现 了 一 种 DSL 来 解 因 


哪些 底层 实现 技术 


功 了 


真实 案例 ， 相 信 你 已 
步步为营 地 完善 实现 。Groovy 实 现 最 终 被 证 
呢 ? 


本 了 解 了 如 何 通 过 一 连 串 


造就 了 多 


的 去 芜 存 苹 过 


明 可 以 


丰 


舌 当 


为 内 部 DSL 选 择 适 当 的 实现 语言 百 


eA AE 


利 技术 ， 你 才 能 和 


， 你 可 以 享受 一 些 实现 手段 ] 


些 实 
7 


户 对 表现 力 


上 的 便利 。 


的 有 要求， 但 E 


好 的 表现 


云 


活 


有 灵 


的 


Sa 人 四 


I 


非 所 有 DSIL 都 相 。 任何 语 


用 了 Groovy 提 供 的 一 些 技术 ， 
于 整体 开发 环境 下 的 各 种 约 习 


。 


语言 塑造 成 优秀 的 DSL。 我 们 在 
至 言 都 有 一 定 的 设 让 


站 
模式 ， 


、 厂 


如 实现 平台 


答 。 
于 


下 一 他， 我 们 就 来 看 看 DSL 的 一 些 


“实现 模式 。 模 式 就 像 现 成 的 设计 知识 ， 


重用， 利用 它们 发 掘 宿主 语言 


DSL， 它 们 都 在 具体 的 实现 条 


wa 


互 的 力 E 


量 去 他 


二 


队 成 员 的 核心 技能 、 


造 友好 的 DSL。 你 将 会 了 解 到 ，7 


慎 守 


程序 的 ， 


总 体 架 构 


MY 


也 | 


尔 可 在 


自己 的 实现 工作 


bpDSL 还 是 外 


出 五 花 八 门 的 模式 。 


表现 


现 所 有 这 些 模式 ， 但 必须 全 


2.3 DSL 实 现 模式 
,存在 数 


一 了 


DSL7 


众多 的 架构 模式 ， 简 
主语 言 之 上 。 外 部 DSL 


虽然 你 个 可 和 
掌握 它们 ， 这 样 才能 针对 实现 平台 作出 


论 内 
能 在 每 一 和 
有 利 的 选择 Eo 


最 有 


I 


单 地 把 


DSL 按 内 部 或 外 部 分 类 实在 过 于 


和 让 性 


全 


hp 重 新 


建立 一 套 语言 设施 。 


性 并 不 足以 
而 设计 优秀 的 
异性 。 


。 我们 从 第 1 
， 不 仅 需要 考虑 各 构成 元 素 在 


，DSL 是 


一 系列 优秀 抽象 设计 


语言 


者 实 


宽泛 。 内 部 
起 源 上 的 共 
原则 的 化 身 。 


加 的 性 


， 还 要 考虑 每 个 元 素 


接 下 来 ， 我 们 将 


展示 一 些 体现 了 差异 


性 的 实现 模式 。 即 使 是 


内 


构 模 式 ， 了 解 它 们 ， 你 才 全 


地 针对 DSL 需 求 


己 的 抽象 。 本 - 


司 一 类 别 的 DSL 也 存在 多 种 
找到 合适 的 具体 实现 架 
附录 A 讨论 过 这 和 


的 


象 设 计 原 则 ， 


展现 出 


e 构 。 对 那些 


的 差 


口才 


-五 


村 式 发 所 但 直 多， 你 过 从 
用 它们 设计 | 


二 到 下 可， 


已 也 会 更 容易 扩 


象 可 以 被 重用 时 ， 
在 翻 看 。 附 录 人 A 中 的 知识 对 于 本 


习 


的 学 习 历 程 是 


EF 下 人 


2.3.1 内 部 DSL 模 式 : 共性 与 差异 性 


为 部 DSL 其 实 随处 可 见 。 


， 在 语言 


像 Ruby 和 Groovy 这 类 
言 的 强力 文 持 下 ， 在 用 它们 写成 的 软 人 


有 读 过 附录 A， 


尔 还 没 


wj 


语言 欧 灵活 而 人 


平 都 可 


A 


4 


同 模式 ， 它们 总 是 


I 


语言 之 


DSL， 因 为 这 可 以 突显 它 日 


区 
5 现 的 。 。 提 到 内 部 DSL 的 时 候 我 更 喜 


区 


影 。 


简洁 的 语 


| 得 


天 


主 


时 大 的 元 编程 模 
有 内 部 DSL 都 


征 。 如 果 用 不 同居 


的 方式 去 运 


主语 言 提供 


1 


作出 来 的 DSL 也 会 在 乡 式 、 
要 有 如 下 两 条 


。 生成 式 领域 专 
Protocol， 元 对 象 协议 ) 


。 内 嵌 式 领域 专用 


1 


内 部 DSL3 


的 结构 体 经 过 编 


em 


性 和 表 


现 力 等 方面 表现 出 


面 对 


j 译 


日 差异。 


EE 时 宏 、 预 处 理 器 或 某 下 
言 的 代码 。 


FE 语言 的 类 型 


生成 实现 语 


总 统 。 


即使 这 么 细 分 也 免 不 
写成 的 内 部 DSL， 可 


日 


了 有 模棱两可 


以 说 Rails 内 租 于 Ruby。 但 同时 Rails 又 运 
时 生成 大 量 代码 ， 所 以 它 又 是 生成 式 的 。 


的 情况 。 比 如 Ruby 及 其 Web 相 


欢 久 说 成 内 帜 
的 设施 ， 你 创 


1 运行 时 MOP (Meta-Object 


匡 架 Rails。Rails 是 一 种 


了 Ruby 的 元 


遍 程 能 


Ruby 语 言 


， 以 便 在 运行 


还 有 一 类 静态 类 型 语言 单纯 将 DSL 内 骸 于 宿主 语言 的 类 型 系统 ，Haskell 和 Scala 是 其 中 的 代表 。 在 
这 样 的 语言 中 ，DSL 继 承 了 宿主 类 型 系统 的 全 部 能 力 。 另 外 ，Haskell 有 一 种 语言 扩展 (Template 
Haskell) 为 语言 增加 了 生成 式 能 力 ， 而 这 是 通过 宏 来 实现 的 。 


仅 在 内 部 DSL 这 一 类 别 下 就 有 数量 众多 的 不 同形 态 模 式 ， 有 的 语言 还 同时 支持 多 种 DSL 开 发 范 
式 。 图 2-2 展 示 了 内 部 DSL 的 一 个 分 类 图 谱 ， 并 且 在 每 一 种 模式 旁边 标注 了 文 持 它 的 一 些 语言 。 


”ge 
| 灵巧 API | CIava、Ruby…… ) 
| 


“有 
语法 树 操作 | (Java、Ruby、Groovy……: ) 
i 


为 柑 式 | 
(_ wux 用 | 类 型 化 内 嵌 | (Haskell、Scala……) 


区 = SSE 本 和 
| RE 
| 内 部 Dsi H | 反射 式 元 编程 ”| 《Ruby、Groovy……) 
| 部 DSL | 
「 到 
一 生成 式 | 编译 时 元 编程 (Lisp、Template Haskell……) 
人 


(Ruby、Groovy…… ) 


图 2-2 内 部 DSL 的 各 种 实现 模式 ， 不 太 严谨 的 分 类 
下 面 我 们 就 参考 图 2-2 逐 这 些 常见 的 内 部 DSL 实 现 手 段 。 


品 第 4 章 和 第 5 间 可 作为 本 市 材料 的 补充 阅读 ， 这 两 章 将 更 加 详细 深入 地 阐释 DSL 的 模式 与 实 
现 。 


1. 灵巧 API 


灵巧 API (Smart API) 可 能 是 最 简单 也 最 常见 的 DSL 实 现 技 术 。 这 种 技术 的 基础 是 方法 串联 ， 近 
似 于 实现 Builder 模 式 (参见 2.6 届 参考 文献 [1]) 。Martin Fowler 将 灵巧 API 称 作 连 贯 接口 
(http://www. martinfowler. com/bliki/FluentInterface.html) 。 在 这 种 模式 下 ， 你 所 创建 的 API 会 按 
(要 建 模 的 ) 领域 动作 的 自然 序列 串联 起 来 。 环 环 相 扣 的 动作 自然 产 生 连 贯 接口 ， 而 具有 领域 含 
义 的 方法 名 可 以 方 人 领域 用 户 的 阅读 和 理解 。 下 面 的 代码 片段 来 自 Guice API 
(http://code.google.com/p/google-guice/ ) ， 它 是 谷歌 开发 的 一 个 农 赖 注入 〈《DI) 框架 。 假 设 用 户 
条 和 启明 一个 应 用 模 央 ， 把 一 个 具体 实现 绑 定 到 某 Java 接 口 ， 用 Guice API 写 出 来 就 是 下 面 这 样 
子 ， 它 看 起 来 流畅 自然 ， 而 且 清 楚 地 表达 了 用 例 的 意 银 


binder.bind(Service.class).to(ServiceImpl.class).in(Scopes.SINGLETON) 


图 2-3 表 现 了 API 一 环 套 一 环 的 样子 ， 调 用 得 到 的 返回 对 象 立 刻 又 在 其 上 发 出 另 一 个 调用 。 
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图 2-3 ”以 方法 串联 手法 实现 的 灵巧 API。 方 法 调用 一 个 接 一 个 ， 并 直到 最 后 才 返 回 给 客户 


binder .bind Service, 


to: ServiceImpl, 


in: Scopes.SINGLETON 


通过 方法 串联 手法 ， 我 们 利用 宿主 语言 的 设施 和 领域 语汇 完成 了 灵巧 API 的 构造 。 但 这 种 手法 有 个 
缺点 ， 它 很 容易 导致 大 量 可 能 没有 太 大 独立 存在 意义 的 小 方法 。 而 且 ， 不 见得 所 有 的 用 例 都 适合 
用 连贯 接口 实现 。 若 通过 Builder 模 式 增 量 构造 并 配置 对 象 ， 一 般 方法 串联 的 建 模 方 式 表 现 交 果 最 
好 ，2.1 节 中 用 Java 实 现 的 交易 单 处 理 D5L 就 是 很 好 的 例子 。 个 过 在 Groovy 、 Ruby 等 语言 未 
其 提供 了 “命名 参数 ”特性 ，Builder 模 式 和 连贯 接口 显得 有 些 多 余 。 (Scala 2.8 了 b 中 持 带 际 认 值 命 
名 参数 。) 举 个 例子 ， 刚 才 那 段 Java 代 码 如 果 改 成 Groovy 版 本 ， 只 是 混用 一 般 的 参数 和 命名 参数 
而 已 ， 代 码 立即 就 简洁 了 许多 ， 但 表现 力 一 点 都 不 输 原 来 的 版 本 : 
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层次 ， 使 之 精确 地 满足 领 
在 设计 DSL 的 时 候 ， 你 必 
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这 是 极 


重要 的 设计 要 求 。 宿 主 


| 时 使 DSL 的 表 


言 的 类 型 和 操作 为 载体 定义 并 实现 


青 炼 。 这 笠 
见 领域 专用 


领 
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ee 站 4 简单 说 


党 类 型 背后 的 


体 实现 
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了 类 型 带 给 DSL 的 好 


按照 领域 抽象 的 关系 设计 类 型 层次 结构 


一 致 性 检查 


自动 强制 施行 的 类 型 约束 


ip 领域 对 象 的 安全 检 
， 防 止 无 效 的 操作 


图 2-4 ”和 嵌入 了 类 型 约束 的 DSL 在 很 多 方面 隐 式 地 保证 一 致 性 。 请 用 类 型 对 DSL 抽 和 象 建 模 。 在 类 型 
中 定义 的 约束 条 件 自 动 获 得 编译 器 的 检查 ， 检 查 甚 至 发 生 在 程序 运行 之 前 


这 种 模式 的 最 大 优点 在 于 : 因为 DSL 的 类 型 系统 内 藤 于 和 主语 言 的 类 型 系统 ， 所 以 其 类 型 系统 会 
自动 获得 宾主 语言 编译 器 的 语法 检查 。DSL 的 用 户 也 可 充分 利用 IDE 集 成 的 各 种 宾主 语言 功能 ，?; 
如 智能 提醒 、 代 码 补 全 、 重 构 等 。 


下 面 的 Scala 示 例 是 对 Trade 抽象 的 建 模 。 该 示例 中 ， I 、Account 和 Instrument 都 是 封 
装 了 业务 规则 @ 的 领域 专用 类 型 @。 在 Ruby 或 Groovy 里 面 ， 领 域 行为 f 成 额外 代码 实现 ; 在 
Scala 里 面 ， 类 似 的 语义 实现 于 类 型 载体 之 上 ， 并 由 编译 器 保障 一 致 性 。 

trait Trade { @ 对 领域 类 型 的 抽象 


type Instrument 
type Account 


I 


由 


def account: Account 
def instrument: Instrument 


def valueof(a: Account, i: Instrument): BigDecimal @ 对 领域 操作 的 抽象 
def principalof: BigDecimal 

def valueDate: Date 

pS 


Haskell 和 Scala 等 语言 具有 高 级 静态 类 型 化 能 力 ， 使 你 完全 可 以 设计 出 单纯 的 类 型 化 内 极 式 DSL， 
需求 诸 于 代码 生成 、 预 处 理 器 或 者 宏 技 术 。 DSL 用 户 可 以 通过 语言 本 身 实现 的 组 合子 ， 把 类 型 
化 的 抽象 组 织 成 DSL 语句 。 这 类 语言 的 类 型 系统 拥有 一 些 高 级 功能 ， 比 如 支持 类 型 推导 、 高 阶 
象 等 ， 可 使 语言 简洁 又 不 失 表 现 力 。Paul Hudak 在 1998 年 | ee a 
(参见 2.6 节 参考 文献 [2]) ， 当 时 他 用 Monad 化 的 语言 解释 器 设计 、 部 分 求 值 技术 和 多 阶段 编程 
(staged programming) ) 技术 来 实现 名 以 增 量 式 演进 的 纯 内 嵌 式 DSL。 Hofer 等 人 也 在 2. 6 六 
参考 文献 [3] 1 讨论 了 Scala 的 类 似 实现 ， 其 eA jtraits、 虚 类 型 、 高 阶 泛 型 、 族 多 
态 等 Scala 特 性 在 单一 DSL 界 面 下 “多 态 地 ”先入 多 个 实现 。 在 第 6 章 ， 我 将 用 一 些 实现 范例 说 明 Scala 
的 静态 类 下 对 于 设计 纯粹 的 EDSL (Embedded ns Specific Language, 内 嵌 式 领域 专用 语言 ) 


定义 ”Monad 代 表 一 种 经 由 Haskell 语 言 得 到 推广 的 计算 模型 。Monad 计 你 按照 预定 义 的 规则 去 
构建 抽象 。 第 6 章 在 讲述 用 Scala 实 现 DSL 的 内 容 时 会 探讨 Monad 化 的 程序 结构 。 更 详细 的 定义 请 
参阅 http://en.wikipedia.org/wiki/Monad_(functional_programming) ° 


接 下 来 要 讲述 的 几 种 第 见 DSL 实 现 模式 都 属于 元 编程 模式 ， 其 支持 语言 的 兴盛 与 它们 息息相关 。 
在 不 同 的 DSL 实 现 技 术 中 ， 若 论 定制 DSL 语 法 的 能 力 ， 元 编程 可 谓 当仁不让 。 


Ht 


4. 反射 式 元 编程 


有 些 模式 针对 小 范围 的 局 部 实现 ， 比 如 灵巧 API。 而 针对 大 范围 的 一 般 实现 策略 ， 也 有 一 些 模式 可 
以 遵循 。 后 一 类 模式 不 但 对 实现 的 整体 结构 有 决定 性 影响 ， 而 且 本 身 就 是 宿主 语言 的 关键 特性 
回顾 我 们 讨 ; 0 (参见 图 2-1 所 示 的 路 线 图 ) ， 元 编程 的 概念 育 以 各 种 面 
目 现 身 于 DSL 设 计 之 中 。 计 种 形态 反射 式 元 编程 一 一 正 是 我 们 这 一 御所 要 讨论 的 模式 ， 


假设 你 要 设计 一 种 DSL 用 来 读 取 配置 文件 ， 然 后 根据 配置 内 容 动 态 地 调用 若干 方法 。 下 面 是 真实 
的 Ruby 示 例 ， 它 从 一 个 YAML 文 件 读 取 方法 的 名 称 和 参数 ， 然 后 用 读 到 的 参数 动态 地 调用 方法 : 


YAML .1oad_file(x_path).each do |k, v 
foo.send("#{k}", Vv) unless foo.send(k) 


因为 直到 运行 时 才能 得 知 方法 名 称 ， 我 们 要 用 到 Ruby 的 元 编程 能 力 ， 通 过 0bject#send( ) 语法 


动态 地 向 对 象 发 出 消息 ， 这 有 别 于 一 般 静 态 方 法 调用 的 点 符号 语法 。 这 里 所 用 的 编码 技巧 就 叫 反 
射 式 元 编程 ，Ruby 在 运行 时 获知 方法 ， 然后 调用 DSL 实 现 中 处 理 动态 对 象 的 时 候 ， 你 就 可 以 
利用 这 种 技巧 推迟 方法 调用 ， 直 到 从 配置 文件 等 途径 收集 到 全 部 所 需 信息 


5. 运行 时 元 编程 
反射 式 元 编程 只 能 发 现 运 行 之 前 已 经 存在 的 方法 ， 不 过 有 的 元 编程 形式 能 够 在 运行 期 间 动态 地 生 


成 新 代码 。 运 行 时 元 编程 也 是 精简 DSL 表 面 语 法 的 一 个 途径 。 它 使 DSL 外 观 上 显得 轻巧 ， 把 费力 
的 代码 生成 工作 被 转移 到 宿主 语言 的 后 端 设施 去 处 理 。 


有 些 语言 会 将 它们 的 运行 时 基础 组 件 暴 露出 来 ， 使 之 成 为 程序 员 可 以 操控 的 元 对 象 。 在 Ruby 或 
Groovy 语 言 中 ， 程 序 可 以 利用 这 些 组 件 在 运行 时 动态 改变 元 对 象 的 行为 ， 或 者 注入 新 行为 去 实现 
领域 结构 。 图 2- 5 简单 说 明 了 Ruby 和 Groovy 元 编程 的 运行 时 行为 。 


对 象 


国 | 
| | 对 象 可 以 得 到 : 

。 新 的 方法 

。 新 的 属性 
。 修改 过 的 属性 


必 一 


支持 元 编程 的 语 
元 对 象 言 运行 时 平台 


图 2- 5 支持 运行 时 元 编程 的 语言 允许 代码 一 边 生成 一 边 执行 。 生 成 的 代码 可 以 修改 已 有 的 类 和 对 
象 ， 动 态 地 增加 新 行为 


我 们 在 2.1 节 用 Groovy 开 发 过 交易 单 处 理 DSL， 当 时 就 用 到 了 这 里 所 说 的 运行 时 元 编程 技术 在 内 置 
类 Integer 上 增加 新 方法 shares 和 of 。 实际 上 对 于 DSL 打 算 执 行 的 动作 语义 ， 这 两 个 方法 并 没 
有 任何 实质 意义 。 它 们 只 起 到 一 种 连结 作用 ， 目 的 是 让 语言 更 贴近 建 模 领域 。 图 2-6 是 一 段 用 


Groovy 实 现 的 DSL 语 句 ， 图 上 为 这 一 串 连 续 调 用 的 方法 标注 了 每 个 方法 的 返回 类 型 。 新 生成 的 方 
法 贯穿 于 语句 中 间 ， 大 大 改善 了 语言 的 表达 能 力 ， 这 些 都 是 运行 时 元 编程 的 效果 。 


order string 


| | 


newOrder.to.buy(100.shares.of ('IBM')) 
| EE | | | | 
order integer integer [string, integer] 
order | | 


[string, integer] 


图 2-6 ”通过 运行 时 元 编程 获得 丰富 的 领域 语法 


Rails 和 Grails 是 两 个 特别 强大 的 Web 开 发 框架 ， 它 们 都 借助 了 运行 时 元 编程 的 力量 。 在 Rails 中 ， 你 
只 要 写 下 下 面 的 代码 ，Ruby 的 元 编程 引擎 会 根据 Employees 表 的 定义 生成 所 有 相关 的 关系 模型 
及 验证 逻辑 代码 。 

class Employee < ActiveRecord::Base { 

has_many :dependants 


belongs_to :organization 
validates_ presence_of :last name, :title, :date of _birth 


# ... 


运行 时 元 编程 通过 在 运行 时 阶段 生成 代码 使 DSL 动 态 化 。 不 过 ， 还 有 另 一 种 形态 的 代码 生成 技 
术 ， 它 发 生 在 编译 阶段 ， 因 而 不 会 给 运行 时 增加 任何 额外 开销 。 下 面 我 们 要 讨论 的 DSL 模 式 就 是 
编译 时 元 编程 ， 这 种 模式 大 多 出 现 于 Lisp 语 言 家 族 。 

6. 编译 时 元 编程 


若 采 用 编译 时 元 编程 ， 我 们 可 以 为 DSL 加 上 定制 语法 ， 这 点 跟 刚 刚 讨 论 过 的 运行 时 元 编程 很 像 。 
虽然 两 种 模式 有 相似 的 地 方 ， 但 也 存在 着 关键 的 区 别 ， 人 表 2-3 。 


表 2-3 ”编译 时 元 编程 与 运行 时 元 编程 的 对 比 


编译 时 元 编程 运行 时 元 编程 


开发 者 定义 的 语法 在 运行 时 之 前 、 编 译 阶 段 得 到 处 理 开发 者 定义 的 语法 在 运行 时 期 间 经 过 元 对 象 协议 (MOP) 处 理 


ne 开销 ， 因 为 到 达 运 行 时 平台 的 都 是 正常 形式 有 一 定 程度 的 运行 时 开销 ， 因 为 要 处 理 元 对 象 和 生成 代码 
~ 训 志 和 


在 编译 时 元 编程 的 典型 实 


对 


'!， 用 户 通 过 与 编译 器 的 交互 在 编译 阶段 生成 程序 片段 。 


oa 种 编译 时 元 编程 实现 途径 。4.5 节 将 通过 Clojure 示 例 深入 解释 编译 时 元 编程 


下 
\ 


C 语 言 中 基于 预 处 理 器 的 宏 ， 还 有 C++ 语言 中 的 模板 ， 都 是 能 在 编译 阶段 生成 代码 的 语言 基 丰 

构 。 不 过 ， 如 果 追 溯 编 程 语言 的 历史 ，Lisp 才 是 编译 时 元 编程 的 鼻祖 。C 语 言 宏 是 在 词法 层面 

行文 本 奉 换 操作 。 而 Lisp 宏 直接 对 AST 操 作 ， 在 句法 层面 上 提 侍 了 极 强 的 抽象 设计 能 力 。 水 四 

J 开发 者 定制 的 DSL 专 用 语法 经 过 宏 展开 阶段 的 处 理 变 成 普通 的 代码 成 分 ， 然 后 
译 器 。 


小国 世 
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正常 形式 的 代码 
1 J] 
BS Ss er 
送 去 编译 
在 此 定义 用 | 
的 定制 语 # > 证- Pw | 


沿 、_ 


宏 展 开 


图 2-7 用 宏 来 实现 编译 时 元 编程 。DSL 肢 本 中 有 一 部 分 是 普通 的 宿主 语言 成 分 ， 有 一 部 分 是 开发 
者 定制 的 专用 语法 。 定 制 部 分 以 宏 的 形式 出 现 ， 在 宏 展开 阶段 展开 成 正常 的 语言 形式 。 然 后 ， 所 
有 代码 被 一 起 送 给 编译 器 


本 章 对 内 部 DSL 实 现 模 式 的 讨 仑 到 此 为 止 。 我 们 介绍 的 几 种 元 编程 方式 主要 见于 Ruby、Groovy、 
Clojure 等 动态 语言 。 男 外 ， 我 们 介 绍 了 前 态 类 型 化 技术 ， 以 及 它 对 于 设计 类 型 安全 的 DSL 的 作 
用 。 第 4 章 ~ 第 6 章 会 再 次 回顾 这 里 介绍 的 所 有 模式 ， 并 在 各 种 语言 的 具体 示例 佐证 下 展开 讨论 。 


本 章 一 开头 我 们 就 承诺 过 要 探讨 现实 中 的 DSL 设 计 。 前 面 已 经 讨论 过 用 Java 和 Groovy 完 成 的 DSL 实 
现 ， 刚 刚 又 介绍 了 内 部 DSL 实 现 中 出 现 的 模式 。 每 个 模式 都 是 实践 者 应 该 勇于 重用 的 经 验 片段 。 
所 有 这 些 模 式 都 是 在 现实 的 DSL 开 发 中 成 功 实践 过 的 。 


说 完 由 部 DSL 显然 接 下 来 我 们 就 要 说 外 部 DSL 了 。 假 如 宿主 语言 无 法 实现 你 想 要 的 DSL 语 法 形 


， 那 就 应 该 跳 脱 宿主 语言 的 栋 模 ， 不 惜 选 择 需 要 从 零 开 始 的 实现 途径 。 外 部 DSL 正 是 正确 答 
案 。 接 下 来 ， 我 们 就 来 看 看 外 部 DSL 有 哪些 实现 模式 。 


2.3.2 外 部 DSL 模 式 ， 共 性 与 差异 性 

外 部 DSL 的 设计 周期 和 原则 与 通用 语言 设计 相同 。 我 知道 这 个 说 法 肯定 让 尔 望 而 生 是， 甚至 打消 
你 在 项 4 念头 。 这 名 论断 在 理论 上 完全 成 立 ， 只 “过 DSL 的 语法 和 语义 并 不 需 \ 需 
要 像 通用 编程 语言 那么 复杂 ， 所 以 其 实 没有 那么 吓人 。 在 现实 中 ， 我 们 可 能 只 需要 动用 正则 表达 
式 来 操控 一 下 字符 串 ， 就 足以 实现 外 部 DSL 的 处 理 。 不 论 简单 还 是 复杂 ， 总 之 所 有 外 部 DSL 的 共 
同 特征 就 是 其 实现 不 借助 宿主 语言 的 设施 。 
外 部 DSL 的 处 理 过 程 可 以 粗略 分 为 两 个 阶段 ， 如 图 2-8 所 示 。 
@ 解析 对 输入 的 文本 进行 分 词 ， 通 过 解析 器 识别 有 效 的 输入 。 


@ 加 工 解析 器 识别 出 的 有 效 输入 在 此 接受 处 理 。 
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中 间 表 示 / 元 模型 


输入 外 部 DSL | 


源 代码 转译 
| 


第 三 方 集成 
供给 应 用 程序 使 用 


图 2-8 ”外 部 DSL 的 处 理 阶段 。 请 注意 与 内 部 DSL 的 区 别 : 在 这 里 开发 者 需要 自行 构建 解析 器 ;而 
对 于 内 部 DSL， 解 析 器 由 宿主 语言 提供 


如 果 DSL 比 较 简 单 ， 解 析 器 可 以 就 地 完成 加 工 工作 ， 那 么 两 个 阶段 可 以 合 二 为 一 。 不 过 ， 一 般 而 
言 比较 实际 的 做 法 是 让 解析 器 把 输入 文本 转换 成 一 种 中 间 表 示 。 根 据 具 体 情况 以 及 DSL 的 复杂 程 
度 ， 这 种 中 间 表 示 可 以 是 AST， 也 可 以 是 其 他 更 复杂 的 语言 元 模型 。 解 析 器 本 身 的 复杂 程度 也 不 
同 ， 简 单 的 只 是 字符 串 处 理 而 已 ， 复 杂 的 也 许 要 用 到 精密 的 语法 制导 翻译 (syntax-directed 

translation) 技术 〈 这 种 解析 技术 将 在 第 8 章 讨 论 ) ， 需 要 动用 YACC 和 ANTLR 等 “解析 器 生成 器 ”3 
制作 。 加 工 阶段 围绕 中 间 表 示 来 进行 ， 可 以 直接 从 中 间 表 示 生 成 目标 输出 ， 也 可 以 将 之 转化 为 一 
种 内 部 DSL， 然 后 用 宿主 语言 的 设施 处 理 。 


接 下 来 ， 我 们 简单 看 下 外 部 DSL 开 发 中 较 常 遇 到 的 几 种 模式 。 每 种 模式 的 具体 实现 留 到 第 7 章 再 作 
详细 介绍 。 图 2-9 列 举 了 一 些 现实 中 常见 的 外 部 DSL 实 现 模 式 。 
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上 下 文 驱动 的 字符 串 操 控 


| 
| XML 转换 成 可 使 用 的 资源 
a 
A 
~ 
-| DSL 中 内 租 异 质 代码 
pd 


基于 解析 器 组 合子 的 DSL 设 计 


图 2-9 ”常见 的 外 部 DSL 实 现 模式 和 技巧 ， 不 太 严 谨 的 分 类 


图 2-9 中 的 每 种 模式 都 是 一 种 描述 DSL 语 法 的 方式 ， 而 且 古 不 同 于 宿主 语言 的 描述 方式 。 也 就 是 说 


你 写 下 的 DSL 脚 本 ， 放 在 实现 语言 里 面 ， 并 不 是 有 效 的 语法 。 所 以 你 还 会 看 到 ， 每 种 模式 下 产生 


= 


的 定制 DSL 语 法 如 何 被 转换 成 为 供给 答 主 语言 使 用 的 制 E 
1. 上 下 文 驱动 的 字符 串 操控 
假设 你 需要 处 理 一 些 业务 规则 ， 但 希望 向 用 户 提 供 一 个 DSL 界 面 来 取代 传统 的 API。 考 虑 下 


子 (commission 为 “佣金 *，principal 为 “本 金 ”) : 


面 的 例 


commission of 5% on principal amount for trade 
values greater than $1,000,000 


这 个 字符 串 放 在 任何 编程 语言 里 都 没有 意义 。 但 只 要 进行 适当 和 揉 按 拍打 ”， 我 们 不 难 把 它 转换 


成 有 效 的 Ruby 或 Groovy 人 代码。 一 个 简单 的 解析 器 就 可 以 完成 任务 ， 只 和 需要 做 下 分 词 ， 然 后 套 上 
表达 式 做 简单 的 转换 就 可 以 了 。 最 后 得 到 的 Ruby 或 Groovy 代 得 就 是 可 以 直 接 执行 的 业务 规 见 


2. XML 转换 成 可 使 用 的 资源 


三 


a 应 该 都 用 过 Spring DI 框架 〈 不 熟悉 Spring 的 读者 请 查阅 http:/www.springframework.org 


i 在 运行 时 ，Spring 容 器 载 入 配置 文件 ， 并 将 所 有 的 依赖 项 关联 到 BeanFactory 或 者 


种 配置 DI 容 器 的 方式 是 采用 一 个 XML 配置 文件 ， 把 所 有 依赖 的 抽象 和 实现 都 记 入 这 个 


人 这 两 个 组 件 将 在 应 用 程序 的 整个 生命 周期 内 存活 ， 以 提供 所 有 必需 的 


长 
本 


j 程 户 


上 下 文 信息 。 这 个 XML 配置 文件 就 是 一 和 外 部 DSL， 它 经 过 解析 ， 被 持久 化 为 可 直接 供 
使 用 的 资 筑 源 。 


图 2-10 简 单 展 示 了 Spring 将 XML 作 为 外 部 DSL 导 入 其 ApplicationContext 抽象 的 情 
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0° 


XML 充当 DSL 


XML 配置 规范 | 


| Spring DI 容 器 | 


NU 网 ia。 
ApplicationContext 


图 2-10 XML 被 用 作 外 部 DSL， 它 是 对 Spring 配置 规范 的 抽象 。 容 器 在 启动 期 间 读 入 并 解析 XML ， 


产生 应 用 程序 所 需 的 ApplicationCcontext 


Hibernate 的 映射 文件 是 一 个 类 似 的 例子 ， 它 把 实体 描述 文件 映射 到 数据 库 设计 方案 。 (Hibernate 


的 内 容 详 见 http://hibernate.org 。) 虽然 两 个 例子 的 生命 周 期 和 持久 化 策略 有 所 差异 ， 但 它 介 


] 都 具 


有 解析 、 加 工 两 个 执行 阶段 ， 这 一 点 体现 了 外 部 DSL 的 共性 。 另 一 方面 ， 这 两 个 例子 又 表现 
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其 他 模式 的 差异 性 ， 


式 (J 


FF 下 文 驱 动 的 字符 串 操 控 ) 
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导 到 | 扩展。 我们 将 在 第 7 章 把 ANTLR 作 为 解析 器 生成 
式 实现 一 个 完整 的 DSL 设 计 。 现 在 赶紧 看 看 最 后 一 和 
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过 了 ; 现在 ， 
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以 及 怎样 
我 们 要 介绍 一 下 你 将 会 面 对 的 另外 一 些 


肯定 没 错 ， 
内 部 DSL 还 是 外 部 DSL， 


军 - 


日 同 时 
都 取决 


法 ， 加 


选择 


目 走 


最 于 DSL 开 发 的 道路 ， 也 确定 了 能 在 DSL 设 计 


' 派 上 


场 的 业务 


应 该 利用 宿主 语言 把 问题 建 模 成 内 部 DST， 
部 DSL? 这 个 问题 和 大 多 数 的 软件 工程 问题 一 样 ， 并 没有 
午 做 什么 和 解答 域 允 许 做 什么 ， 共 同 
有 几 大 因素 是 应 该 考虑 的 ， 本 节 就 带 你 审 


i 视 


1. 重用 现 有 设施 


内 部 DSL 搭 了 宿主 
法 、 完 整 的 工具 链 ， 
来 说 ， 折 


以 选择 ， 


0 


语言 的 顺风 车 ， 所 有 的 设施 、 语法 、 语 
内 部 DSL 都 能 沾 光 。 这 一 点 绝对 是 内 
这 绝 非 易 事 。 在 内 部 DSL 范围 
。 决策 主要 取决 于 


义 、 模 块 


统 


这 在 上 一 菠 都 已 经 讨论 


决定 了 我 们 的 答案 。 在 


还 是 应 i 
放 之 四 海 而 皆 准 


交 为 了 
的 


领域 组 件 ， 


能 满足 领 
5 选 


表现 力 水 
正确 答 


、 类 型 
内 ， 我 们 又 有 


尔 下 决心 选择 


某 种 DSL 


六 统 、 


错误 报告 方 
部 DSL 的 最 大 实现 优势 。 而 对 于 外 部 DSL 


多 


实现 模式 可 


首 主 语言 的 能 力 和 它 所 支持 的 


象 层 


二 你 。 


如 果 和 宿主 语言 如 Scala 或 Haskel] 那 样 拥有 强大 的 类 型 系统 ， 那 么 你 可 以 考虑 用 其 类 型 系统 来 表达 领 
域 关 型 ， 从 而 得 到 纯粹 的 内 购 式 DSL 。 不过， 类型 内 供 不 一 定 总 是 最 优 的 选项 ”只 有 当 客 体 语言 
的 语法 、 语 义 都 接近 于 宿主 语言 时 ， 这 才能 取得 好 的 效果 。 任 何 一 方面 不 匹配 都 会 使 DSL 与 宿主 
语言 的 系统 环境 格格 不 入 ， 使 宿主 语言 的 控制 结构 无 法 顺利 地 组 织 起 DSL 语 句 。 在 这 种 情况 下 ， 
你 也 许 应 该 求助 于 元 编程 技术 一 一 如 果 宿 主语 言 提供 了 这 种 选择 。 前 面 已 经 介绍 过 ， 因 为 元 编程 
允许 扩展 宿主 语言 ， 允 许 在 其 中 加 入 原本 没有 的 领域 构造 ， 所 以 最 后 得 到 的 DSL 表 面 语法 能 比 类 
型 内 檬 方案 表现 力 更 强 。 


2. 充分 利用 现 有 的 知识 


有 些 时 候 ， 你 只 外 6 根据 团队 成 员 现 有 的 知识 水 平 来 选择 实现 范式 。 内 部 DSL 在 这 一 点 上 较 有 优 
势 。 个 过 要 注 总 ， 程序 员 熟 悉 某 种 语言 ， 并 不 等 于 就 熟悉 该 语言 下 的 DSL 实 现 惯例 。 连 贯 接口 在 
Java 和 Ruby 中 很 常 见 ， 但 并 非 没有 陷阱 。 在 具体 的 条 件 下 必须 考虑 许多 方面 才能 保证 DSL 语 义 上 
的 一 致 性 ， 比 如 抽象 是 否 可 变 、 连 贯 API 是 否 上 下 文人 敏感， 还 有 方法 链 的 收尾 问题 finishing 
problem， 参 见 2.6 届 参考 文献 [4]) 。 所 有 这 些 考 虑 角度 部 牵涉 到 模式 或 惯用 法 的 微妙 变化 ， 对 DSL 
的 一 致 性 有 不 可 忽视 的 影响 。 


利用 现 有 的 知识 肯定 是 必须 考虑 的 因素 。 团 队 领 导 判 断 成 员 的 专业 能 力 ， 不 应 该 根据 他 们 对 语言 
表面 语法 的 狼 悉 程度 ， 而 应 该 放 在 实现 DSL 的 背景 下 去 衡量 。 有 的 团队 不 会 勉强 坚持 用 Java 实 现 内 
SR 而 是 会 选用 XML 来 实现 外 部 DSL， 并 且 极 大 地 提高 了 生产 效率 ， 也 赢得 了 用 户 的 
认可 。 


3. 外 部 DSL 的 学 习 曲 线 


也 许 你 不 敢 选择 外 部 DSL， 因 为 觉得 设计 外 部 DSL 就 像 设 计 通用 编程 语言 那么 复杂 。 我 不 怪 你 有 
这 样 的 想法 。 只 要 一 提 语 法 制导 翻译 、 递 归 下 降解 析 、LALR 和 SLR 这 些 术语 ， 人 们 就 很 难 不 
鉴于 复杂 性 被 它们 吓 到 。 


现实 中 ， 大 多 数 应 用 程序 所 要 求 的 外 部 DSL 没 必要 做 得 像 完整 的 编程 语言 那么 复杂 。 不 过 ， 确 实 
有 些 外 部 DSL 相 当 复杂 ， 必 须 将 其 学 习 曲 线 纳入 开发 成 本 去 考虑 。 外 部 DSL 的 优点 是 可 以 定制 几 
乎 任何 东西 ， 连 如 何 处 理 错误 和 有 异常 都 可 以 定制 ， 你 不 会 因为 宿主 语言 的 限制 而 被 束 手 束 脚 。 


4. 恰当 的 表现 力 水 平 


虽然 内 部 DSL 对 现 有 设施 的 重用 是 很 大 的 优势 ， 但 宿主 语言 强加 的 约束 使 你 设计 出 来 的 DSL 很 难 
达到 领域 用 户 要 求 的 表现 力 水 平 ， 这 也 是 事实 。 在 现实 中 ， 往 往 要 等 到 开发 环境 和 工具 链 都 已 经 
不 可 能 更 改 的 时 候 ， 我 们 才 发 现 有 的 模块 很 适合 应 用 DSL。 因 此 ， 你 不 见得 有 机 会 选择 最 合适 的 
语言 来 设计 内 部 DSL 。 


在 这 种 时 候 ， 我 们 有 必要 考虑 在 应 用 程序 架构 中 纳入 外 部 DSL。 用 外 部 DSL 建 模 领域 问题 的 最 大 
优点 ， 是 你 可 以 把 语言 的 复杂 度 设计 得 正好 和 手头 问题 相 匹配 。 外 部 DSL 给 予 开 发 者 充足 的 调整 
人 户 反 馈 ， 而 内 部 D5L 束 不 一 定 能 做 到 这 一 点 ， 因 为 语法 、 语 义 始终 在 宿主 语言 的 约 
束 。 
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5. 组 合 性 

在 典型 的 应 用 程序 开发 场景 '， 不 同 的 DSL 或 者 DSL 和 宿主 语言 都 有 可 能 第 要 组 合 起 来 使 用 。 内 
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二 车 。 


组 合 使 用 多 种 DSL 就 值得 讨论 一 番 了 ， 即 使 所 有 DSL 的 宿主 语言 都 一 样 ， 情 况 也 不 那么 单纯 。 对 
于 静态 类 型 语言 下 实现 的 几 种 内 购 式 DSL， 必 须 在 答 主 语言 类 型 系统 的 支持 下 才 有 可 能 无 颖 地 组 
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改进 DSL 的 表现 力 。 
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第 3 章 DSL 驱 动 的 应 用 程序 开发 


本 章 内 容 

。 将 内 部 和 外 部 DSL 集 成 进 核心 应 用 程序 

。 管理 错 误 和 异常 

。 优化 性 能 表现 

前 两 章 我 们 在 用 户 和 实现 的 层次 对 DSL 进 行 了 多 方位 的 观察 和 探讨 。 可 以 看 到 ， 提 高 抽象 的 表现 
力 可 使 代码 更 易于 理解 ， 可 以 帮助 缩短 与 领域 专家 之 间 的 反馈 循环 。 不 过 ， 不 管 DSL 设 计 得 多 么 
出 色 ， 归 根 结 底 你 要 把 它 和 核心 的 Java 应 用 程序 模型 集成 在 一 起 。 ( 倒 不 一 定 是 Java 应 用 程序 ， 这 
里 只 是 举例 。) 集成 率 涉 到 的 众多 方面 也 需要 你 未 雨 绸 缪 。 以 上 种 种 ， 以 及 用 DSL 来 开发 一 个 完 
整 应 用 程序 会 遇 到 的 其 他 问题 ， 就 是 本 章 的 讨论 内 容 。 

一 般 来 说 ， 我 们 会 用 平台 上 的 主要 语言 (比如 Java) 来 开发 应 用 程序 的 主体 部 分 。 然 后 ， 对 于 一 
些 业务 规则 或 者 配置 规范 ， 我 们 可 以 用 比 Java 表 现 力 更 强 的 语言 写成 DSL 来 表述 。 那 么 ，DSL 部 分 
应 该 怎样 跟 核 心 应 用 程序 无 颖 集成 呢 ? DSL 的 演变 往往 独立 于 应 用 程序 的 主体 部 分 ， 所 以 架构 上 
要 足够 灵活 ， 不 能 妨碍 DSL 时 时 的 改变 ， 还 要 使 变化 对 应 用 程序 主体 的 影响 尽 可 能 小 。 本 章 对 以 
上 问题 的 讲解 计划 参见 图 3-1。 

DSL 驱 动 的 应 用 程序 开发 
Ds 需要 与 核 E 
应 用 程序 集成 
i | 如 何 管理 错误 及 异常 
别 忘 了 关注 性 能 
集成 内 部 DSL (主要 
以 库 的 形式 ) 

图 3-1 了 解 本 章 学 习 计 划 ， 学 习 DSL 驱 动 应 用 程序 开发 的 各 种 问题 
关于 DSL 驱 动 的 应 用 程序 开发 ， 我 们 主要 探讨 三 个 方面 : 

。 集成 问题 

。 处 理 异常 和 错误 

。 管理 性 能 表现 
DSL 不 能 独立 发 挥 作用 。 集 成 DSL 到 应 用 程序 需要 考虑 诸多 问题 ， 其 中 有 项 是 错误 处 理 : 无 论 


DSL 还 是 核心 应 用 程 


序 都 有 可 能 产生 异常 。 你 打算 怎样 向 DSL 用 户 报告 错误 ?又 打算 怎样 


(我 们 将 在 3.4 节 尝试 1 


解答 。) DSL 使 用 中 还 可 能 出 现 各 入 


性 


能 问题 ， 本 章 


的 总 结 。 


完 本 章 ， 你 将 学 会 安排 应 用 程序 的 染 构 ， 使 之 能 与 别 种 语言 编写 的 DSL 无 颖 集成 。 


3.1 探索 DSL 集 成 


DSL 是 一 种 优美 的 已 也 毫 不 例外 地 需要 与 及 应 用 程 序 架构 中 的 其 他 组 件 集成 。 在 一 般 的 使 用 
场景 中 Dsr 所 的 制品 及 于 应 用 程序 中 易 变 的 部 分 ， 比 如 业务 规则 和 配置 参数 。 所 以 DSL 和 
应 用 程序 主体 要 能 以 不 同 的 步调 各 独立 地 演变 ， 同 时 它们 又 能 够 与 工作 流 无 锋 地 结合 ， 这 两 
点 都 是 非常 重要 的 设计 要 求 。 


我 们 二 换 索 无 继 集 成 DSL 的 台 和 途径 。 一 种 DSL 本 身 只 针对 一 个 专门 的 领域 ， 却 有 可 能 
在 个 更 大 的 领域 中 使 用 。 至 于 实际 上 是 否 被 广泛 使 用 ， 还 要 看 它 所 针对 的 领域 的 通用 程度 。 例 
如 ， 一 种 处 理 期 时 间 的 DSL 在 任 可 需要 计算 日 期 的 程序 中 都 用 得 上 ， 而 一 种 针对 企业 税收 规定 
的 DSL 用 途 就 非常 有 限 了 “。 另 外 ， 因 为 日 期 DSL 要 考虑 集成 到 多 个 应 用 程序 上 下 文 的 情况 ， 所 以 
它 要 具有 更 强 的 适应 性 。 


我 们 稍 后 便 深入 介绍 DSL 集成 问题 ， 在 此 之 前 ， 请 看 图 3-2， 一 个 DSL 驱 动 的 上 
就 是 这 个 样子 。 


程序 架构 大 体 上 


Et 
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图 3-2 ”宏观 视角 下 基于 DSL 的 应 用 程序 架构 ， 注 意 DSL 与 核心 应 用 程序 的 解 耦 情形 。 不 同 部 分 的 
演变 时 间 表 各 不 相同 

对 于 典型 的 多 层 架 构 ，DSL 可 以 用 在 任何 一 层 ， 只 要 它 准 备 好 该 层 要 求 的 集成 上 下 文 信息 就 行 。 
集成 内 部 DSL 相对 容易 ， 因 为 内 部 DSL 一 般 与 应 用 程序 使 用 同 种 语言 ， 且 被 设计 为 库 的 形式 。 集 
成 外 部 DSL 较 为 麻 ; 需要 建立 某 种 插入 机 制 |， 对 外 公开 专门 的 端口 给 应 程序 对 接 。 我 们 不 急 
he 架构 的 具体 用 例 ， 先 来 谈 谈 为 什么 需要 小 心 处 理 DSL 的 
集成 | 题 


为 什么 关心 DSL 集 成 


核心 应 用 程序 对 内 有 各 种 组 件 要 连接 ， 对 外 有 DSL 脚 本 要 插入 ， 两 者 都 需要 你 小 心 处 理 。DSL 的 
演变 步调 独立 于 核心 应 用 程序 ， 所 以 两 者 之 间 的 耦合 程度 要 恰如其分 。 


浪 


Bjorn 、Ruby、Scala 等 表现 力 强 的 语言 作为 核心 应 用 程序 的 主要 语言 ， 基 本 上 不 
入 其 他 语言 的 DSL 脚 本。 所 以 ， 接 下 来 的 内 容 主要 与 在 Java 


存在 什么 集成 问题 ， 根 本 就 没 必要 捐 
应 用 程序 中 集成 DSL 脚 本 的 | 


开发 者 很 容易 鲁莽 地 决定 在 一 个 应 用 程序 内 使 用 多 种 语言 的 DSL， 却 忘 了 想 想 到 时 候 要 怎么 
3-2 中 好 端 端 的 架构 可 能 会 变 成 开发 者 的 焉 梦 。 没 有 人 希望 落 


成 。 如 果 选 错 了 DSL 的 实现 语 


到 好 像 图 3-3 所 示 那 般 境 地 。 


青 况 有 关 。 


五 二 


所 》 


图 


用 了 语言 一 用 了 语言 二 

产 信 
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1/ | 

| 计 税 DSL | A 时 | 
核心 应 用 程序 


用 了 语言 三 


| ”应 用 程序 
配置 DSL | 


图 3-3 ”架构 师 如 坐 针 千 ， 苦 思 冥 想 怎样 把 不 同 语言 写成 的 DSL 眼 核心 应 用 程序 集成 。 你 能 帮 他 解 


除 这 个 定时 炸弹 吗 


如 果 想 做 到 DSL 与 应 用 程序 无 颖 外 


表 3-1 列 举 的 几 个 问题 。 


表 3-1 将 DSL 集 成 到 核心 应 用 程序 


成 ， 不 想 陷入 图 3-3 


那 位 仁兄 的 境况 ， 那 么 你 就 必须 好 好 考虑 


待 解 问题 


架构 师 应 做 事项 


2 点 分 离 
硬是 DSL 要 解决 的 核心 问题 ， 


现 面 是 DSL 要 应 付 的 应 程序 上 下 
文 ， 怎 样 保证 两 者 之 间 泾 渭 分 明 ? 


正确 定义 DSL 的 适 文 ， 并 考虑 DSL 在 当前 应 用 之 外 可 能 的 应 用 场景 
参考 附录 A 中 作为 一 个 让 : 精炼 


DSL API 的 演化 确保 API 在 演变 过 程 中 维持 向 后 兼容 

DSL API 的 演变 要 独立 于 应 用 程序 上 | 如果 使 用 第 三 方 提 供 的 DSL， 一 旦 发 现 它 的 API 引 入 了 不 兼容 的 改动 ， 就 要 立即 警觉 起 

下 文 来 ， 否 则 说 不 定 什么 时 候 会 被 "反咬 上 一 口 ” 

避免 语言 摩擦 确 保 DSL 的 实现 语言 可 以 跟 应 用 程序 的 宿主 语言 无 颖 地 互 操作 

各 种 DSL 所 用 的 语言 太 多 ， 会 给 整个 | 几时 部 分 牲 DSL 语 法 的 灵 汪 性， 不 应 选择 无 法 很 好 地 集成 到 核心 应 用 程序 的 语言 。 不 

架构 的 发 和 维护 造成 混 乳 ” 为 不 同 语言 运行 在 相同 虚拟 机 (VM) 上 就 认为 其 间 能 无 颖 地 互 操 作 ， 请 记 住 这 个 提 

这 不 仅 是 技术 问题 ， 还 是 人 员 问 题 。 | 六 pra 

ww 时 > 本、 白人 和 如 果 DSL 的 实现 语言 可 以 通过 多 种 途径 与 应 用 程序 的 宿主 语言 互 操作 ， 请 优先 选择 具有 

导入 王 他 多 过 舌头 会 放 的 间 是 邱 友 的 | 自然 集成 方式 的 一 那 种 ， 基 于 沙 使 的 脚本 环境 虽然 是 一 种 通用 的 集成 途径 ， 只 宜 作为 后 
人 意愿 选项 。 我 们 将 在 3.2 节 以 Groovy 和 Java 互 操作 为 例 来 说 明 各 种 成 方式 

你 已 经 知道 为 DSL 和 核心 应 用 程序 制定 集成 策略 的 必要 性 ， 接 下 来 该 了 解 一 下 各 种 策略 的 使 用 模 


式 了 。 首 先 说 明 的 是 内 部 DSL 的 集 


成 。 


成 模式 ， 内 部 DSL 主 要 做 成 库 的 形式 ， 以 库 中 API 的 形式 进 


行 集 


3.2 内 部 DSL 的 集成 模式 


设计 成 库 形 式 的 内 部 DSL， 其 实现 语 


管 哪 种 情况 ， 集 成 都 无 需 借 助 任 


JVM 之 上 。 等 


言 要 人 么 条 
何 外 部 设施 来 完 
调用 而 已 。 ee Me di 各 种 语 
。 请 看 图 3-4， 可 以 看 到 分 别 用 Java、Groovy 和 Spring 丁 


[应 用 程 


程序 之 间 


IDSL 都 可 以 做 成 jar 文 件 来 部 署 ， 


每 种 DSL 都 可 以 做 成 


jar 文 件 ， 与 核心 Java “+ 一 一 (Java) 


应 用 程序 无 缝 互 操作 


程序 在 JVM 上 无 颖 地 互 操作 


Se 应 用 a 
(Spring) 配置 DSL | 


图 3-4 3 种 DSL 均 与 核心 应 用 程序 同 质 集成 。 每 种 DSL 都 可 部 署 为 jar 文 件 ， 


假设 你 主要 用 编程 语言 Java 开 发 应 用 程序 
势 实现 XML Builder 功 能 。 (这 种 Builder 是 


体 应 


(Groovy) 


计 税 DSL 


才 心 应 用 程序 


(Java) 


在 Groovy 下 


这 主 体 相同 ， 要 么 可 以 与 之 无 颖 互 操 作 。 不 
成 :无非 是 在 DSL 与 核心 应 


发 生 的 API 


无 差别 地 集成 于 
即 可 。 


言 的 互 操作 融洽 无 间 ， 我 把 这 种 情况 称 为 同 质 集成 
语言 实现 的 不 同 DSL 可 
程序 只 需 引 用 jar 文 伯 


HH 


以 便 与 核心 Java 应 用 


日 因为 自己 有 多 语言 能 力 ， 所 以 打算 利用 Groovy 的 优 
方式 ， 参 见 


http://www.ibm.com/developerworks/java/library/j-pg04125/ 。) 没 多 久 你 又 发 现 ， 有 个 第 三 方 的 
JRuby DSL 很 适合 用 来 加 载 Spring bean 以 管理 应 用 程序 ty 这 了 时候， 应 该 怎样 把 好 几 种 DSL 和 核 
心 应 用 程序 集成 在 一 起 呢 ? 集成 不 可 以 让 用 户 六 多 如 杂 伺 ， 同时 ， DSL 要 与 核心 应 程序 保 
持 足 够 的 独立 性 ， 以 便 独 立 掌握 其 演变 步调 和 生命 周期 。JVM 语 言 所 写 的 DSL 可 以 通过 多 种 方式 
与 Java 应 用 程序 集成 。 

众多 JVM 语 言 大 都 提供 了 与 Java 集 成 的 多 种 途径 。 表 3-2 列 出 的 每 一 种 方式 都 能 达到 集成 目的 ， 但 
你 \ 需 了 解 每 一 种 方式 的 优 缺 点 ， 从 中 选 出 最 适合 的 。 
表 3-2 ”内 部 DSL 的 集成 入 口 

内 部 DSL 的 集成 模式 集成 入 口 
Java 6 的 脚本 引 警 (参见 3.2.1 节 ) Groovy 等 脚本 语言 编写 的 DSL 可 通过 Java 6 提供 的 相应 脚本 引擎 来 集成 
DSL 包 装 器 (参见 3.2.2 节 ) 和 Ly 、Scala、Groovy 等 语言 把 Java 对 象 包装 成 更 灵巧 的 API， 这 些 语言 本 身 就 有 Java 
Oe 成 功能 

语言 特有 的 集成 功能 (参见 3.2.3 节 ) 人 种 直接 加 载 并 解析 DSL 脚 本 的 程序 抽象 直接 与 Java 集 成 。Groovy 具 有 这 样 的 
基于 Spring 的 集成 (参见 3.2.4 节 ) 通过 Spring 的 声明 式 配置 直接 加 载 用 动态 语言 编写 的 各 种 bean 到 应 用 程 请 


一 


MY 


品 接 下 来 成 的 时 候 


程 


J” XE 是 以 Java 语 言 


讨论 人 我 们 都 假定 核 必 
为 普 ; 然 


看 言 全 都 具备 不 同 


普 注 。 另 外 请 注意 ， 虽 然 我 们 提 到 的 几 种 语 


人 。 现在 还 没有 人 在 Groovy 应 


程 户 


里 下 


山 


内 典 Ruby 


下 面 我 们 就 来 一 一 详 述 表 3-2 所 列 的 模式 ， 


看 看 一 些 JVMi 


言 开发 的 ， 
程度 的 Java 集 
写 的 DSL 。 


这 种 情况 当今 最 
成 能 力 ， 但 它们 彼 


已 碟 心 \ 怎么 利 


的 。 
3.2.1 通过 Java 6 的 脚本 引擎 进行 集成 


Java 平 台 普 及 程度 非常 高 ， 所 以 早 有 人 考虑 为 Java 平 
6 的 脚本 特性 允许 通过 相应 的 引擎 在 Java 应 
义 的 APL， 充 全 于 般 入 Groovy、JRuby 等 
其 中 还 是 沿用 第 


全 可 以 
! 的 交易 单 处 理 DSL 。 


全 
口 J 


1. 准备 Groovy DSL 


在 2.2.2 节 ， 


节 
Java 应 用 程 ) 


代码 清 s 
内 容 与 2.2.2 


门 写 了 一 段 Groovy 脚 本 来 执行 
面 集成 和 调用 。 这 个 例子 将 让 你 认 坪 
是 我 们 用 来 处 理 
的 相同 ) 


客户 交易 单 的 DSL 


13-1 
节 中 


O 


程序 中 舱 入 脚本 语言 
语言 实现 的 DSL。 来 看 记 


创建 订单 的 DSL。 现 


只 Java 脚 本 


有 语言 建立 统 


上 的 所 


0 


二 


它们 集 


长 


成 到 Javak 


万全 


一 的 互 操作 平台 


° Java 


通过 javax. script 包 内 定 


这 种 4 


成 方式 的 一 个 示例 ， 


在 还 是 同村 


的 DSL， 但 这 次 要 在 


特 人 


开局 DSL 


jGroovy 实 现 〈ClLientorder .groovy ， 


集成 通道 的 能 力 。 


其 


过 


代码 清单 3-1 


Clientorder ,groovy : Groovy 语 


言 编写 的 交易 单 处 理 


EDSL 


ExpandoMetaClass.enableGlobally() 


class Order { 
def security 
def quantity 
def limitPrice 
def allOrNone 
def value 
def bs 
def buy(su, closure) { 
bs = 'Bought' 


buy_sell(su, closure) 
def sell(su, closure) { 
bs = 'Sold' 
buy_sell(su, closure) 
} 
def getTo() { 
this 
} 


private buy_sell(su, closure) { 
security = su[0] 


quantity = Su[1] 


def getNewOrder() { 


closure() 
} 
def methodMissing(String name, args) { 
order ,metaClass.getMetaProperty(name).setProperty(order， 
} 


args) 


order = new Order() 


} 
def valueAs(closure) { 
order 


Integer.metaClass.getShares = { -> delegate } 
Integer ,metaClass.of = { instrument -> [instrument, 


order.value = closure(order.quantity, order.1limitPrice[0]) 


delegate] } 


我 们 在 上 面 的 Groovy 代 码 中 实现 了 一 个 Order 抽象 来 反映 用 户 输入 的 交易 单 详情 。 而 在 另 一 个 肢 
本 文件 order.dsl (代码 清单 3-2) 中 ，DSL 用 户 利用 代码 清单 3-1 中 的 实现 把 用 户 下 单 的 操作 写成 脚 
本 一 一 这 个 脚本 也 是 Groovy 代 码 。 注 意 ， 用 户 脚 本 完全 基于 我 们 在 代码 清单 3-1 中 设计 的 DSL， 用 
户 只 需要 具备 最 低 限 度 的 编程 知识 。 除 了 建立 交易 单 ， 脚本 还 将 交易 单 收集 到 一 个 集合 ， 然 后 返 
回 给 调用 者 。 但 调用 者 是 谁 呢 ? 别 急 ， 你 马上 就 会 知道 
代码 清单 3-2 ”order.dsl: 执行 下 单 操作 的 一 段 Groovy 脚 本 

orders = [] 
neworder .to.buy(100.shares.of('IBM')) { 

limitPrice 300 

allOorNone true 

valueAs {qty, unitPrice -> qty * unitPrice - 500} 
orders << order @ 将 交易 单 加 入 集合 
neworder .to.buy(150.shares.of('G00G')) { 

limitPrice 300 

allOorNone true 

valueAs {qty, unitPrice -> qty * unitPrice - 500} 
orders << order 
neworder .to.buy(200.shares.of('MSOFT')) { 

limitPrice 300 

allOorNone true 

valueAs {qty, unitPrice -> gty * unitPrice - 500} 
es << order 
orders 四 将 集合 返回 给 调用 者 
在 代码 清单 3-2 中 ， 用 户 写 下 newOrder 建立 一 个 新 的 0rder 抽象 ， 然 后 填 入 各 种 属性 ， 比 如 买 入 
卖 出 、 交 易 数 量 、 限 价 、 定 价 策略 等 。 所 有 新 建立 i a 该 集合 在 在 @ 
的 位 置 被 返回 。 
至 此 铺 执 工作 都 已 完成 ， 重 头 戏 束 要 上 场 了 : 我 们 要 把 DSL 实 现 和 用 户 脚 本 都 集成 到 Java 应 用 程 户 
主体 。 
2. 集成 DSL 实 现 及 用 户 脚本 
尺码 清单 3-3 是 从 应 用 程序 主体 中 截取 的 代码 片段 ， 它 等 着 DSL 脚 本 执行 后 返回 的 一 个 交易 单 集 
合 ， 然 后 对 交易 单 进行 后 续 处 理 。 这 里 用 到 的 脚本 引擎 是 Groovy 语 言 的 ， 还 有 JRuby、Clojure、 
Rhino 和 Jyphon 等 其 他 JVM 语 言 的 引 警 ， 也 可 以 像 Groovy 的 一 样 无 颖 整合 到 Java 必 用 程序 里 〈 详 见 


O 


https://scripting.dev.java.net/ ) 


代码 清单 3-3 Groovy DSL 的 Java 程 序 代码 


调 


List<?> orders = (List<?>) 


new BufferedInputStream( 


System.out.println(orders.size()); 
for(Object o : orders) { 
System.out.println(o)， 


engine.eval(new InputStreamReader( 


new SequenceInputStream( 
new FileInputStream("Clientorder ,groovy")， 
new FileInputStream("order.ds1"))))); @ 执 行 


ScriptEngineManager factory = new ScriptEngineManager(); 
ScriptEngine engine = factory.getEngineByName("groovy"); 


@ 取 得 脚本 引擎 的 工厂 
四 取得 Groovy 脚 本 引擎 


四 返回 交易 单 的 列 于 


日 处 理 


DSL 脚 本 


I 


交易 


对 照 代 码 清单 3-3 和 图 3-5， 我 们 不 难看 清 引 
中 对 DSL 脚 本 及 实现 所 进行 的 操作 。 


new 


! 得 到 “groovy” 


连接 DSL 实 现 部 分 和 oa、! 
DSL 用 户 股本 部 分 @ ; 


成 的 每 一 个 步 又 。 图 3- 


ScriptEngineManager 


5 的 顺序 图 上 标注 了 代码 清 


获得 相应 脚本 
引 芝 的 I 厂 上 


引 营 人 


执行 脚本 @ 


< 
处 理 返 回 的 交易 单 集合 @@ ! 
JavaApp 


执行 Groovy DSL 脚 本 的 全 部 步骤 


显然 ，Java 6 的 脚本 API 几 乎 能 够 集成 任 
包 内 的 API 还 能 用 于 设置 各 种 作用 域 的 变 


交易 单列 表 合 


ScriptEngine Manager 


3. Java 6 脚本 特性 的 不 足 


Java 6 脚本 特性 是 实现 JVM 语 言 互 操作 的 一 种 极 通用 方式 。 但 有 所 谓 通 用 策略 ， 
某 种 语言 的 更 好 选择 。 由 于 DSL 脚 本 被 一 个 证 


行 ，Groovy 抽 象 与 Java 抽 象 之 间 存 在 


的 Order 列表 ， 到 了 Java 一 侧 就 成 了 
法 ， 只 好 利用 反射 。 另 外 ， 由 于 脚本 在 ScriptEngine 的 沙 盒 中 执行 ， 当 


互 操 作 问 题 。 


Object 


息 中 显示 的 行 号 无 法 对 应 到 源 文件 


1 的 行 号 。 


1 

1 

1 

1 
Engine 


Wwww.websequencediagrams.com 


图 3-5 ”通过 Java 6 的 脚本 引擎 集成 Groovy DSL。 这 幅 交互 图 反映 了 在 ScriptEngine 的 沙 盒 内 


F 何 JVM 语 言 编 写 的 DSL 到 Java 应 用 程序 。 
量 绑 定 ， 以 便 在 DSL 与 Java 名 


加 载 ， 又 在 独立 的 沙 盒 


主意 ， 在 代码 清单 3-3 中 


列表 。 要 在 这 些 对 象 上 调用 Order 抽象 定义 
出 现 异常 时 ， 栈 跟踪 信 


因此 ，DSL 脚 本 抛 8 


的 异常 调试 起 来 比较 困难 。 


为 Java 6 脚本 这 样 那样 的 不 足 ， 我 们 有 必要 继续 探索 更 好 的 内 部 DSL 集 成 方案 。 


上 


单 3-3 


javax.script 


日 件 之 间 交 换 信息 。 


Groovy DS 脚本 


k 泊 下 


的 方 


因 


品 


ScriptEngine 可 


获得 


脚本 3 


该 特性 


将 JS 
惯 了 


Java 6 的 脚 d 


他 JVM 


DSL 可 以 集成 至 
然后 了 


框架 ， 
行 ， 缺 上 


下 面 我 们 来 看 另 一 和 
更 为 紧密 。 


结合 得 


擎 是 从 Java 6 开始 引入 的 ， 
日 关 API 的 设计 原则 ， 任 


E 的 支持 。 
R 233 
所 以 生 


上 往 效果 最 好 


语言 


如 果 你 打算 用 了 
容 的 方案 作为 退 而 求 其 次 的 选择 


API 成 就 了 JVM 上 多 语言 
刚好 实现 了 一 段 Groovy DSL， 它 很 容易 无 颖 扣 
(例如 JRuby、Clojure 和 Rhino) 


编 


是 一 种 在 Java 程 


E 何 JYM 语 言 
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图 3-6 ”交易 账户 和 结算 账户 在 交易 过 程 中 的 作用 
[eb 金融 中 介 系 统 ， 客 户 账户 


完成 交易 ， 客 户 需 要 在 STO (Stock Trading Organization， 证 券 交 易 组 织 ) 开设 一 个 账户 
称 为 交易 账户 后 。 客户 参与 的 所 有 交易 都 被 记 入 这 个 账户 ， 并 在 STO 留 有 交 易 记 录 。 一 旦 成 
， 结 算 过 程 就 必须 启动 。 结 算 过 程 核 算出 交易 双方 各 自 结余 的 证 券 和 现金 数量 。 


来 看 例 了 。 客 /XXX 通过 过 STO 野 村 证 券 天 入 100 股 索尼 的 股票 ， 每 股 为 50 卖 元。 STO 从 交易 所 获 


为 J 
4 


NS 
人 


注 


得 某 中 介 卖 出 的 证 券 。 成 交 后 有 个 结算 过 程 ， 交 易 双 方 在 此 过 程 中 互 换 100 股 索尼 股票 和 约 5000 
美元 。 结 算 在 一 个 账户 上 进行 ( 称 为 结算 账户 ) ， 这 个 账户 可 以 和 客户 的 交易 账户 相同 ， 也 可 
以 是 男 一 个 账户 。 
总 之 ， 交 易 账户 用 来 交易 ， 结 算账 户 用 来 结算 交易 。 两 个 账户 可 以 相同 也 可 以 不 同 。 图 3-6 是 交 
易 、 结 算 过 程 的 概略 图 。 

来 看 Account (账户 ) 领域 模型 。 账 户 是 证 券 交 易 领 域 的 一 个 实体 ， 券 商 、 客 户 、 中 介 都 通过 它 


来 管理 交易 和 结算 活动 ”刚刚 的 补充 内 容 简单 介绍 了 交易 和 结算 操作 中 出 现 的 不 同 账户 型 和 它 
门 的 功用 。 


品 要 是 记 不 清楚 “交易 "和 “结算 ”在 此 领域 中 的 确切 含义 ， 请 回顾 第 1 章 和 第 2 章 的 补充 内 容 。 


代码 清单 3-4 就 是 Account 实体 的 领域 模型 ， 我 们 用 它 来 讨论 包装 式 DSL 集 成 。 代 码 中 略为 删 减 了 
一 些 不 重要 的 细节 。 我 们 将 要 实现 的 Scala 包 装 器 就 建立 在 Account 这 个 Java 类 基础 之 上 。 看 过 这 


个 例子 ， 你 将 看 到 包装 器 模式 对 客户 API 的 改造 成 效 ， 由 API 组 织 起 来 的 语句 结构 将 更 为 精干 和 
有 表现 力 。 


代码 清单 3-4 ” ”Java 语言 编写 的 Account 领域 模型 


public class Account { 
public enum STATUS { OPEN, CLOSED } 


public enum TYPE { TRADING, SETTLEMENT, BOTH } 


private String number; 

private String firstName ， 

private List<String> names = new ArrayList<String>()， 
private STATUS status = STATUS .OPEN ， 

private TYPE accountType = TYPE.TRADING; 

private double interestAccrued = 0.0; 


public Account(String number, String firstName) { 
this.number = number ， 
this.firstName = firstName; 


} 


public Account(String number, String firstName, TYPE accountType) { 
this(number, firstName); 
this.accountType = accountType; 


} 
// 省 略 了 获取 方法 
public double calculate(final Calculator c) { 


interestAccrued = c.calculate(this); 
return interestAccrued,; 


} 


public boolean isOpen() { 
return status.equals(STATUS.OPEN); 
} 


public Account addName(String name) { 
names.add(name ) ， 
return this; 


如 果 你 曾经 做 过 Java 编 程 ， 肯 定 已 经 对 代码 清单 3-4 所 示 模 型 中 的 种 种 累 鳌 、 死 板 的 内 容 见怪 不 怪 
了 。 让 我 们 试 着 把 抽象 变 得 更 灵巧 一 点 ， 给 客户 准备 一 套 领 域 味道 更 浓 、 表 达 更 自如 的 API。 到 时 
候 ， 我 们 的 DSL 和 Java 应 用 程序 将 真正 血脉 相连 ， 犹 如 一 体 。 


2. 建造 DSL 


首先 ， 1 Scalalh SAcoountDSL 充当 Java 类 Account 的 适配器 ， 实 现 所 谓 的 灵巧 领域 
API。 我 们 必须 给 Account 类 披 上 极其 灵巧 的 外 衣 ， 不 管 DSL 如 何 设 计 ， 让 用 户 都 可 以 把 DSL 用 
于 岗 有 的 Account 类 实例 ; 这 是 最 终 目 标 。 后 续 几 段 代码 将 向 你 演示 如 何 逐 步 强 化 AccountDSL 
抽象 。 随 后 我 们 还 会 讨论 可 能 出 现 的 DSL 使 用 情形 ， 让 你 感受 一 下 领域 抽象 的 强化 成 果 。 


了 


尺码 清单 3-5 是 用 Scala 编 写 的 DSL 层 ， 它 将 与 Java 类 Account 无 颖 集成 使 用 。 


代码 清单 3-5 ”用 Scala 语 言 编 写 的 AccountDSL 


class AccountDSL(value: Account) { 


import scala.collection.JavaConversions._ 


def names = @ 将 Java 集 合 转 换 为 Scala 集 合 
value.getNames.toSeqd.toList ::: List(value.getFirstName) 

def belongsTo(name: String) = { 四 领域 API 
(name == Value.getFirstName) || (names exists(_ == name)) 

} 

def <<(name: String) = { 作用 于 集合 的 新 运算 符 


value.addName (name) 
this 


代码 中 用 到 一 些 典 型 的 Scala 惯 用 
Scala 知 识 ， 请 参阅 3.7 节 文献 1 。 


条 


请 参阅 补充 内 容 “Scala 基 础 知识 ”里 的 简要 介绍 。 欲 详细 了 人 解 


Scala 基 础 知识 
在 belongsTo 方法 里 面 ， 我 们 写 了 一 句 断 言 : 
>> (names exists(_ == name)) 


已 其 实 是 一 种 简略 写法 ， 意 思 等 同 于 以 下 Scala 人 代码: 


>> (names.exists(n => n == name)) 


1. 在 Scala 语 言 里 ， 调 用 方法 的 时 候 方法 和 接收 者 之 间 的 点 符号 (. ) 是 可 选 的 。 


1. 在 Scala 语 言 里 ， 下 划 线 符号 (_) 可 以 作为 简写 记号 代表 别 的 东西 。 代 码 清单 3-5 中 的 _ 是 
当做 占 位 符 使 用 的 ， 提 供 参 数 给 exists 所 接受 的 高 阶 画 数 。 


2. exists 所 接受 函数 的 参数 类 型 由 Scala 类 型 推断 器 进行 推断 。 


3. 在 Scala 语 言 里 ， 运 算 符 也 是 方法 。 我 们 可 以 定义 一 个 给 账户 对 象 添加 客户 名 字 的 << 方法 。 
有 些 人 觉得 像 << 这 样 的 运算 符号 比较 好 看 ， 但 我 必须 提醒 一 下 ， 好 看 与 否 完全 属于 个 人 喜 
好 ， 如 果 用 得 太 多 反而 可 能 降低 代码 的 可 读 性 。 


代码 清单 3-5 中 的 AccountDSL 是 Java 类 Account 的 适配器 ，Account 被 包 庄 起 来 ， 成 为 了 

AccountDSL 的 底层 实现 。 在 @ 的 位 置 ， 我 们 为 了 方便 后 面 的 高 阶 函 数 ， 把 Java 集 合 转换 成 了 

Scala 集 合 。 《〈Scala 集 合 上 可 以 施用 高 阶 函 数 ， 所 以 更 能 表达 清楚 一 些 操作 的 意思 ， 在 这 个 意义 上 

说 ，Scala 集 合 的 语义 总 是 比 Java 集 合 更 丰 军 。) 这 里 用 到 了 Scala 2.8 才 有 的 Java、Scala 集 合 隐 式 
(implicit ) 转换 功能 ， 如 果 你 用 的 Scala 版 本 比较 低 ， 可 以 改 用 jcl1 转换 API: 

def names = 


(new Bufferwrapper[String] { 
def underlying = value.getNames 


}).toList ::: List(value.getFirstName) 


我 们 还 定义 了 一 个 领域 API belongsTo 包 ， 其 中 用 到 了 高 阶 画 数 和 刚刚 转换 而 来 的 Scala 集 合 。 这 
个 地 方 充分 体现 了 Scala 紧 恋 的 特点 。 最 后 ， 我 们 为 了 DSL 的 表现 力 和 简洁 性 ， 特 入 定义 昌 乔 "< 这 
样 类 似 运算 符号 的 语法 日。 


和 的 Scala API 包 装 了 原来 的 Java 实 现 ， 不 久 我 们 也 将 见识 到 客户 怎样 用 新 的 简洁 语法 
意图 。 表 现 力 和 简洁 性 是 DSL 驱动 开发 的 主要 优点 ， 我 们 的 例子 清楚 地 展现 了 DSL 的 


3. 利用 Scala 的 隐 式 特性 


在 将 视角 转向 客户 之 前 ， 我 们 还 有 一 件 事情 需要 解释 。 只 有 Account 和 AccountDSL 之 间 能 
操作 ，AccountDSL 上 面 建立 的 各 种 机 巧 才 能 应 用 到 Account 实例 。 通 过 Scala 的 隐 式 特性 ， 我 
们 可 以 让 AccountDSL 具备 的 任何 功能 同时 对 Account 类 的 实例 生效 。 我 们 所 要 做 的 ， 只 是 在 
词法 作用 域内 定义 一 个 隐 式 转换 : 


小 


达 其 领域 
量 。 


表 
力 


implicit def enrichAccount(acc: Account ): AccountDSL = 
new AccountDSL(acc ) 


这 样 就 可 以 透明 地 从 Account 转换 成 AccountDSL ， 之 后 你 就 可 以 在 Account 实例 上 使 用 新 的 
DSL API 了 。 现 在 ， 我 们 创建 几 个 Java 类 Account 的 实例 : 


val acc1 = new Account("acc-1", "David P.") 
val acc2 = new Account("acc-2", "John S.") 
val acc3 = new Account("acc-3", "Fried T.") 


Scala 的 隐 式 特性 


enrichAccount 方法 定义 前 面 有 个 ijmplicit 修饰 符 。 在 Scala 语 言 中 ，implicit 修饰 符 用 


于 方法 表示 定义 从 一 个 类 型 到 另 一 个 类 型 的 自动 转换 。 在 这 里 ，enrichAccount 方法 将 一 个 
Account 实例 转换 成 AccountDSL 实例 。 使 用 中 并 不 需要 写成 : 


scala> enrichAccount(acc1) belongsTo("David P."), 


你 可 以 直接 在 Account 实例 上 调用 AccountDSL 的 方法 : 


scala> acc1 belongsTo("David P.") 


就 好 像 AccountDSL 的 全 部 方法 都 注入 到 了 Account 类 一 样 。 是 不 是 有 点 象 Ruby 的 猴子 补丁 

(monkey patching) ? i 章 类 ， 并 向 里 面 添 加 方法 。 
不 过 Scala 的 情况 有 些 不 一 样 : implicit 被 限制 了 词法 作用 域 。Account 和 AccountDSL 之 
间 的 自动 转换 只 存在 于 enrichAccount 方法 的 词法 作用 域内 。 而 Ruby 的 开放 类 允许 在 全 局 作 
用 域内 修改 现 有 类 ， 这 是 很 大 的 不 同 。3.7 节 的 参考 文献 [3] 深 入 分 析 了 Scala 语 言 中 隐 式 特性 的 优 


Ey 


[e) 


现在 ， 我 们 使 用 新 的 << 运算 符 把 将 几 个 账户 所 有 人 的 名 字 加 到 账户 acc1 : 


acc1 << "Mary R." << "Shawn P." << "John S." 


mn 
局 

站 HH 
上 


下 代码 片段 表现 出 来 的 言 简 意 凡 的 特点 ， 同 样 的 意思 如 果 用 原本 的 Java API 写 出 来 是 这 样 


accil.addName("Mary R.").addName("Shawn P.").addName("John S."); 


接着 我 们 把 几 个 账户 组 成 集合 ， 对 于 账户 所 有 人 中 包含 “John S.” 的 ， 都 打印 出 账户 所 有 人 的 名 字 


(firstName ) : 


val accounts = List(acc1，acc2，acc3) 
accounts filter(_ belongsTo "John S.") map(_ getFirstName) foreach(println) 


表现 力 真 好 ， 跟 原 本 使 用 Java API 时 简直 不 可 同日 而 语 。 这 么 大 的 区 别 应 该 归功 于 Scala 语 言 的 丰 
富 表 达 手 段 ， 它 使 我 们 能 用 一 组 更 紧 竣 的 API 表 达 出 更 充沛 的 语义 。 上 再 的 代码 刻 段 运用 filter 
~ map 、foreach 组 合子 来 操作 高 阶 印 数 比 命令 式 的 Java 语 法 利落 得 多 。 有 没有 感觉 到 一 点 兴 
奋 ? 我 们 继续 吧 ! 


取得 属于 John S. 的 账户 列表 ， 对 于 其 中 累计 利息 已 超过 阔 值 (thresho1ld ) 的 所 有 账户 合计 其 应 
付 利 息 (accruedInterest ) : 


accounts .filter(_ belongsTo "John S.") 
.map(_ ,calculate(new CalculatorImpl)) 
.filter(_ > threshold) 
.foldLeft(0.0)(_ + _) 


上 上 面 的 代码 片段 运用 了 之 前 补充 内 容 中 讲解 过 的 一 种 Scala 惯 用 法 。filter 后 面 的 断言 有 个 需要 
推断 类 型 的 参数 ，_ 育 就 是 代表 这 个 参数 的 占 位 符 。 类 似 Java 那 样 语法 烦 珊 的 语言 就 没 办 法 把 领域 问 
题 表 达 得 像 这 里 一 样 清楚 。 第 1 章 束 说 过 ， 这 一 切 都 归功 于 Scala 等 更 强大 语言 丰富 的 抽象 设计 能 
力 ， 它 们 减少 了 代码 中 的 非 本 质 复杂 性 (accidental complexity) 。 


注意 作为 calculate( ) 方法 输入 使 用 的 CcalculatorImpl 对 象 。 Calculator 是 在 Java 中 定义 
的 接口 ， 而 CalculatorImpl 是 其 实现 : 


public interface Calculator { 
double calculate(Account account); 


} 
public class CalculatorImp1 implements Calculator { 
Q@Override 
public double calculate(Account account) { 
// 具 体 实现 
} 
} 


大 多 数 时 候 ， 传 递 给 Account#calculate( ) 方法 的 参数 总 是 Calculator 接口 的 同一 个 实 
现 ， 这 时 可 以 利用 DI 在 运行 时 动态 注入 实现 以 避免 代码 重复 。 不 过 ，Scala 可 以 提供 更 好 的 办 法 : 
把 这 一 参数 隐 含 在 所 有 的 calculate 调用 中 。 


class AccountDSL(value: Account) { 


// 同 上 一 段 


def calculateInterest( 
implicit calc: Calculator): Double = { @ 隐 售 的 calculator 实 例 
value.calculate(calc) 
} 
} 


上 面 的 代码 给 calculateInterest 方法 定义 了 一 个 jmplicit 参数 ， 并 且 在 DSL 的 执行 作用 域 
内 设置 该 jmplicit 参数 的 默认 值 @。 现 在 ， 我 们 给 calculator 规定 了 一 个 隐 含 的 默认 实现 ， 
不 再 需要 每 次 调用 calculateInterest 方法 都 传递 一 个 calculator 实例 。 最 后 ， 计 算 John S. 
名 下 所 有 账户 的 应 付 利 息 就 变 成 这 个 样子 : 


implicit val calc = new CalculatorIimpl 


accounts.filter(_ belongsTo "John S.") 
.map(_.calculateInterest) 
.filter(_> threshold) 
.foldLeft(0.0)(_ + 


有 了 闭 包 、 高 阶 画 数 等 特性 的 协助 ，Scala 能 够 定义 非常 自然 的 控制 抽象 ， 甚 至 给 人 感觉 就 像 语言 
内 建 的 语法 一 样 。 即 使 底层 实现 是 Java 对 象 ， 也 不 坊 碍 我 们 设计 出 强力 的 控制 结构 ， 成 就 简洁 明 


了 的 DSL。 
4. 带 给 用 户 的 利益 


我 们 在 第 1 章 就 说 过 ， 设 计 DSL 的 目的 并 不 是 让 不 懂 编 程 的 领域 户 用 它 写 代码 。 所 谓 设计 得 当 的 
DSL， 重 点 是 API 要 突显 其 沟通 作用 。 上 一 段 代 码 中 出 现 的 map 、filter 、foldLeft 等 函数 式 


人 合子 ， 其 实 对 于 领域 人 员 来 说 并 不 好 理解 。 但 领域 人 员 不 难 在 上 述 代 码 片段 中 看 到 以 下 
几 个 要 点 : 


。 过 滤 出 属于 John S. 的 账 
。 对 其 计算 利息 (Ca lou latETenect ; 
。 过 滤 出 大 于 阔 值 的 值 ; 

。 合计 所 有 的 利 居 值 。 


当 你 在 代码 局 部 集中 呈现 这 些 信 息 要 点 ， 领 域 专家 就 比较 容易 理解 并 验证 业务 逻辑 。 如 果 采 取 命 
令 式 的 写法 ， 同 样 的 逻辑 很 可 能 散布 在 较 大 范围 的 代码 片段 里 ， 不 懂 编 程 的 人 很 难 理 清 其 逻辑 。 


我 们 接 下 来 就 用 Java 对 象 Account 和 代码 清单 3-5 中 实现 的 AccountDSL 定义 一 个 控制 
object AccountDSL { 
def withAccount(trade: Trade)(operation: Account => Unit) = { 
val account = trade.account 
// 初 始 化 
try { 
operation(account) 
} finally { 
// 清 理 


分 : 


这 段 代 码 用 到 的 两 个 抽象 (Account 和 Trade ) 都 是 可 能 经 过 Scala 包 装 器 强化 的 Java 类 。 现 在 轮 


IE 


到 DSL 用 户 拿 这 些 抽象 来 做 点 有 用 的 领域 操作 了 。 有 刚才 的 withAccount 控制 抽象 ， 再 加 上 把 


Scala 和 Java 整 合 到 一 起 的 包装 器 ， 用 户 可 以 本 出 下 面 的 DSL 代 码 片 段 。 这 段 代 码 照 旧 比 纯 Java 方 案 
的 最 好 结果 表现 力 更 强 ， 更 接近 于 领域 用 语 


withAccount(trade) { 
account => { 
settle( 
trade using 
account .getClient 

.getStandingRules 
.filter(_.account == account) 
.first) 

andThen journalize 


上 面 一 连 串 的 API 调 用 做 了 些 什 么 ， 看 看 图 3-7 束 清楚 了 。 


得 到 适用 于 当前 账 
得 到 账户 所 属 的 客户 下 


人 


,一 视 汶 


记 入 账册 


| 


取 一 个 账户 取得 结算 常设 规则 按 规则 结算 交易 


图 3-7 前 面 代码 片段 的 流程 图 解 ， 分 步 说 明 从 取得 账户 到 事务 结束 的 全 过 程 


只 要 几 行 非常 清楚 易 懂 的 领域 专用 代码 ， WA ed 就 能 做 这 么 多 事情 。 如 果 把 这 一 小 段 代 


码 拿 给 领域 专家 看 他 肯定 能 给 你 解释 其 功能 。 我 就 拿 给 老 鲍 看 J 


(还 
证 券 公司 的 领域 专家 从 1.4 节 开始 ， 就 一 直 在 给 我 们 帮忙 。) 你 猜 怎么 着 ? 老 鲍 看 了 代码 ， 然 后 和 


还 记得 他 吗 ? 这 位 蹦 蹦 高 


我 进行 了 下 面 这 么 一 番 对 话 。 
老 鲍 : 你 在 过 滤 之 后 ， 从 结算 常设 规则 里 面 选 其 中 的 第 一 条 ， 
1 


。 老 鲍 ， 但 有 时 候 可 能 有 好 几 条 规则 适用 于 同一 个 账户 。 
。 我 ， 那 你 怎么 决定 应 该 选 哪 条 规则 ? 


本 
一 


对 吧 ? 


老 鲍 ， 在 这 种 情况 下 ， 每 条 规则 都 有 对 应 的 优先 级 。 你 应 该 选 优先 级 最 高 的 那 一 条 


下 回 你 的 经 理 再 说 DSL 的 前 期 投入 太 大 ， 你 束 把 刚刚 学 到 的 告诉 他 吧 
需要 一 大 笔 开 文 。 本 小 广 讨 论 的 包装 器 方式 束 是 实 实在 在 的 例证 。 这 种 方式 是 对 当前 Java 领 域 模 


型 投资 的 增值 ， 回 报 给 你 的 是 更 灵巧 、 对 领域 专家 更 有 用 的 代码 。 


只 要 在 Java 应 用 程序 中 选择 Scala 作 为 DSL 实现 语言 ， 你 就 可 以 采用 DSL 包 装 器 手法 。Scala 的 类 型 


系统 有 办 法 把 Java 对 象 变 得 更 灵巧 ， 而 隐 式 特性 是 其 秘 决 。 接 下 来 ， 


。 不 见得 每 一 种 DSL 集 成 都 


我 们 学 习 如 何 利用 一 些 语 言 


特有 的 集成 手段 在 Java 之 上 实现 DSL。 这 次 我 们 义 回 到 Groovy 语 言 


例 。 
3.2.3 语言 特有 的 集成 功能 


我 们 重 温 3.2.1 节 集成 到 核心 Java 应 用 程序 的 那个 交易 单 处 理 DSL。 但 


重 温 3.2.1 节 讨论 过 的 DSL 示 


这 次 不 用 ScriptEngine 来 


集成 ， 而 是 在 Java 应 用 程序 中 动态 载 入 Groovy 类 的 技巧 。 动 态 类 加 载 保 证 Groovy 对 象 即 使 内 般 于 


核心 Java 应 用 程序 ， 仍 然 有 很 好 的 可 操纵 性 。 


总 元 编程 、 闭 包 、 委 托 等 Groovy 知 识 详 见 3.7 节 参考 文献 [2]。 
1. Java 代 码 与 Groovy DSL 之 间 的 通信 


假设 Java 交 易 程 序 已 经 用 Java 6 的 ScriptEngine 集成 了 交易 单 处 到 


EDSL 。 一切 都 运行 得 很 好 ， 直 


到 有 一 天 客户 拿 来 了 新 的 需求 : 从 脚本 返回 给 Java 应 用 程序 主体 的 交易 单 集合 还 需要 一 些 额外 的 
处 理 。 具 体 来 说 ， 我 们 需要 计算 当前 所 下 全 部 交易 单 的 总 值 ， 还 要 为 客户 定制 交易 单 上 显示 的 项 


日。 


在 之 前 的 方案 里 ，DSL 实 现 (CLientorder .groovy ) 和 用 户 脚本 (order .dsl ) 被 合成 一 段 


Groovy 脚 本 ， 放 进 ScriptEngine 的 沙 盒 中 执行 。Groovy DSL 对 于 


Java 代 码 完 全 不 透明 ; Groovy 


脚本 和 Java 类 分 别 


不 同 的 类 装载 器 载 入 ， 所 以 脚本 内 容 对 于 应 用 程 请 


主体 是 不 可 见 的 。 为 了 满 


人 我 们 必须 找 一 种 办 法 让 Java 应 用 程序 接触 Groovy 类 ， 这 就 要 费 一 番 功 夫 更 换 DSL 


2. 利用 Groovy 类 装载 器 进行 更 好 的 集成 

这 里 ， 作 为 DSL 实现 环节 的 Groovy 类 将 成 为 Java 应 用 程序 内 可 重用 的 抽象 ， 而 作为 DSL 使 用 环节 、 
用 户 编写 的 交易 单 处 理 脚 本 才 GroovyClassLoader 加 载 。 代 码 清单 3-6 展 示 的 几 处 修改 可 
令 DSL 更 符合 Groovy 风 格 。 


代码 清单 3-6 ”RunScriptjava: 利用 GroovyClassLoader 集成 DSL 


证 


public class RunScript { 
public static void main(String[] args) 
throws CompilationFailedException, IOException, 
InstantiationException, IllegalAccessException { 


final Clientorder clientorder = new ClientOrder(); 
clientOrder.run(); @ 设置 元 类 
final Closure dsl = @ 加 载 Groovy 类 


(Closure)((Script) new GroovyClassLoader().parseClass( 
new File("order.dsl1")).newInstance()). Ss 
dsl.setDelegate(clientorder); 给 闭 包 设置 委托 
final Object result = dsl.call(); 9 执行 DSL 


List<order> r = (List<Order>) result; 
int val = 0; 
for(Order x : r){ 日 处 理 结果 集合 
val += (Integer)(x.getVvalue()); 


System.out.printlin(val); 


J 步 步 解释 这 段 代码 怎样 增强 DSL 集 成 的 Groovy 味 道 。 我 们 分 离 出 clientOrder ,groovy 
预 编译 ， 使 0rder 类 可 用 于 Java 应 用 程序 。 在 上 面 的 Java 类 中 ， 我 们 运行 CLientorder 的 
一 个 实例 ， 以 设置 元 类 @。DSL 脚 本 order ,ds1 光 回 一 个 内 会 DSL 代 码 的 closure 四。 接着 ， 我 
们 设置 Clientorder 为 Closure 的 委托 ， 以 解析 脚本 中 的 符号 上 日。 然后 ， 我 们 执行 DSL 脚 本 ， 
获得 一 个 order 对 象 的 列表 @。 最 后 ， 我 们 遍历 所 有 的 0rder 对 象 ， 求 得 交 易 单 总 值 @@。 


DSL 脚 本 一 执行 完 ， 我 们 就 得 到 一 个 Order 对 象 的 列表 ， 十 分 方便 后 续 的 业务 处 理 。 而 按照 之 前 
代码 清单 3-3 中 的 方案 ， 通 过 Java 6 脚本 API 进 行 集成 ， 就 做 不 到 这 一 点 。 客 户 应 该 满意 这 样 的 结 
果 ， 而 你 也 学 到 了 一 种 集成 Groovy 到 Java 应 用 程序 的 新 方法 。 
3. 最 终结 果 

DSL 脚 本 order ,dsl 现在 变 成 下 面 的 样子 ， 改 为 向 Java 应 用 程序 返回 一 个 Closure 。 


代码 清单 3-7 order .dsl : D5SL 脚 本 改 为 返回 一 个 Closure 


-> 
orders = [] 
ord1 = 
neworder .to.buy(100.shares.of('IBM')) { 
limitPrice 300 
allOorNone true 


valueAs 


} 


println "Orders ,,， 
orders.each { println it } 


现在 的 Groovy 交 易 单 处 理 
节 的 ScriptEngine 方案 更 出 色 。 


{qty, unitPrice -> qty * unitPrice - 500} 


orders << ord1 


ord2 = 
neworder ,to.buy(150.shares.of('G00G')) { 
limitPrice 300 
allorNone true 
valueAs {qty, unitPrice -> qty * unitPrice - 500} 


orders << ord2 


ord3 = 
neworder .to.buy(200.shares.of('MSOFT')) { 
limitPrice 300 
allorNone true 
valueAs {qty, unitPrice -> qty * unitPrice - 500} 


orders << ord3 


步 了 一 些 ， 而 且 它 


的 相 比 又 进 


EDSL 与 第 2 章 


与 Java 


成 的 效果 也 比 3.2.1 


玉 


介绍 完 语言 特有 的 集成 功能 ， 下 面 介 绍 一 种 基于 框架 的 内 部 DSL 集 成 方案 。Spring 提 供 了 这 样 的 3 
各 我 们 来 看 看 它 的 用 法 。 
3.2.4 基于 Spring 的 集成 
表 3-2 总 结 的 集成 手法 就 剩 下 最 后 一 种 未 介绍 了 。 本 节 要 介绍 的 集成 方案 通过 框架 来 实现 ， 论 抽象 
层次 ， 它 比 前 面 那些 语言 层面 的 集成 方案 更 高 。 要 是 Java 应 程序 里 面 的 业务 规则 可 以 动态 修 
改 ， 而 且 不 需要 重新 启动 程序 ， 那 该 多 好 ; 你 会 不 会 常常 这 样 想 ? 


1. Spring 的 动态 语言 支持 


从 2.0 版 开始 ，Spring 即 支持 


Ruby、Groovy 等 表现 力 强 的 动态 


语言 所 实现 的 bean 。 


( 欲 详细 了 解 


Spring， 请 访问 http://www.springframework.org 。) 义 美 bean 有 所 谓 的 < 可 刷新 "性 质 ， 即 当 其 底层 
实现 发 生变 化 的 时 候 ， 可 以 动态 地 重新 装载 它们 。 来 看 一 个 金融 中 介 领 域 的 例子 。 假 设 有 个 
TradingService 实现 ,为 了 计算 附 息 债券 的 应 付 利 息 ， 需 要 查找 一 些 计 算 规则 。 
public class TradingServiceImpl implements TradingService { 

private AccruedInterestCcalculationRule accIntRule; @ 由 Spring 注入 的 计算 规则 

@override 

public void doTrade(Trade trade) { 

// 有 具体 实现 
} 
在 上 面 的 代码 片段 中 ， 应 付 利 息 的 计算 规则 经 由 Spring DI 在 运行 时 注入 @。 利 用 Spring 对 动态 语言 
的 支持 ， 我 们 可 以 选择 JRuby、Groovy、Jython 等 表现 力 好 的 语言 来 实现 这 些 规则 。 此 处 的 场景 
好 适合 一 种 小 巧 、 内 涵 丰 富 的 DSL 发 挥 作用 。 这 样 有 两 个 好 处 : 
。 因为 语言 本 身 内 涵 丰 富 ， 代 码 的 表达 更 到 位 ; 


。 当 bean 的 底层 实现 发 生变 化 时 ， 其 运行 时 实例 可 以 自动 重新 加 载 。 
就 当前 的 例子 而 言 ， 我 们 用 个 Java 接 口 来 定义 计算 规则 的 契约 ; 


public interface AccruedInterestCalculationRule { 


BigDecimal calculate(Trade trade) 


} 


然后 规则 的 具体 实现 可 以 用 Ruby DSL 来 写 : 


require 'java' 


class RubyAccruedInterestCalculationRule { 
def calculate(trade) 
// 具 体 实现 
end 
end 


RubyAccruedInterestCalculationRule.new 


现在 就 剩 最 后 一 件 事 情 了 。 
2. 接 通 实现 


用 下 面 的 Spring XML 配置 片段 就 可 以 把 整个 实现 连接 起 来 。 现 在 ， 当 Java 程 序 需要 一 个 
AccruedInterestCalculationRule 实例 的 时 候 ， 就 会 得 到 由 Ruby DSL 编 写 而 成 的 实例 。 


<lang:jruby 
id="accIintCcalcRule" 
refresh-check-delay="5000" 
script-interfaces= 
"org.springframework.scripting.AccruedInterestCalculationRule " 
script-source="classpath:RubyAccruedInterestCalculationRule.rb"> 
</lang:jruby> 


恭喜 你 ， 你 成 功利 用 Spring 在 Java 应 用 程序 中 集成 了 Ruby DSL。 这 种 非 侵 入 式 的 DSL 集成 模型 使 
DSL 组 件 与 使 用 它 的 上 下 文 解 耦 。 如 果 你 的 应 用 程序 正好 将 Spring 用 作 DI 框 架 ， 不 妨 考虑 用 这 种 集 
成 模式 解决 业务 规则 DSL 动 态 重新 加 载 问题 。 


针对 内 部 DSL 的 同 质 集成 模式 至 此 介绍 完毕 ， 我 们 接着 学 习 外 部 DSL 的 集成 模式 。 外 部 DSL 形 态 各 
异 ， 其 语言 设施 也 可 能 是 专门 设计 的 。 下 一 节 ， 我 们 会 回顾 2.3.2 节 讨 站 过 的 所 有 外 部 DSL 实 现 村 
式 ， 看 看 不 同 的 实现 方案 会 在 核心 应 用 程序 上 留 下 怎样 的 集成 入 口 。 注 意 ， 外 部 DSL 都 是 特别 为 
了 某 个 应 用 程序 而 定制 的 ， 我 们 对 了 外 部 DSL 集 成 模式 的 讨 ; 仑 受 限 于 [种 常见 的 使 手法 。 


3.3 外 部 DSL 集 成 模式 


怎样 在 应 用 程序 中 集成 XML? 你 会 立即 回答 : “使 用 XML 解析 器 ! ” 没 错 ! 因为 XML 不 同 于 应 用 程 
序 的 宿主 语言 ， 所 以 需要 单独 的 解析 和 处 理 机 制 。 XML 应 用 非常 广泛 ， 相 应 地 工具 非常 多 ， 比 如 
XPath、 XQuery 等 ， 而 且 几 乎 随便 一 个 企业 解决 方案 都 会 带 上 各 式 各 样 XML 解 析 器 。 在 应 用 程序 
集成 XML 简直 轻而易举 。 然 而 很 遗憾 ， 我 们 为 应 用 程序 设计 的 外 部 DSL 没 有 这 样 的 “全 套 行 
人 更 多 地 依赖 于 特殊 情况 下 的 特殊 举措 ， 难 以 推广 成 通用 的 相 
式 。 


性 


上 一 段 中 的 1 


es oe 


说 法 ， 集成 外 部 DSL 会 是 软件 玫 


璐 梦 。 是 否 如 此 则 取决 了 


二 


小 部 DSL 的 解析 器 ~ YACC 等 标 ; 


| 
起 


那么 集成 起 来 还 是 很 简单 的 。 如 时 


式 ， 都 为 其 设计 产物 留 


那 我 们 就 再 细 数 
部 DSL 到 应 月 


售 工 具 来 开发 的 ， 
重读 一 遍 2.3.2 节 ， 你 会 发 现 那里 描述 的 每 一 种 外 部 DSL 实 现 模 
条 易 见 的 集成 入 口 。 


程序 作 了 总 结 。 
表 3-3 ”外 部 DSL 的 集成 入 口 


。 表 3-3 对 于 


如 何 集成 外 


外 部 DSL 模 式 
上 下 文 驱 动 的 字符 串 操 控 


本 


理 被 转化 为 宿主 语言 代码 ， 这 一 关 


得 来 的 代码 片段 就 是 与 应 


到 了 正则 表达 式 匹配 和 动态 代 
序 集成 的 入 


XML 转换 成 可 使 用 的 资 


，XML 被 转化 成 宿主 语言 


FP 的 数据 结构 ， 


非 文 本 表示 


计 一 套 APL， 


FP 内 出 异 质 代码 


于 解析 器 组 合子 的 DSL 设 计 


为 何 外 部 DSL 和 集成 模式 讲解 得 
而 外 部 DSL 根 据 其 领域 常 需 要 种 


自体 语 话机 我 们 弦 有 了 集 


马 所 属 语言 人 言 的 适当 数据 结构 ， 
一 组 数据 结构 ， 由 于 


生成 多 种 形式 的 具体 i 


吾 法 树 。 只 要 根 


成 入 
同时 将 各 段 内 赂 


语言 相同 ， 可 以 


AST 的 最 高 节 上 点 ， 我 们 得 


。 以 宿主 语言 写成 的 组 合子 就 是 解析 外 部 DSL 
边 解 析 ， 一 边 填 充 语 义 模型 的 数据 结构 。 
了 完整 的 DSL 语 义 模 型 


详细 ? 内 部 DSEL 旨 


全套 设施 。 比 起 用 


辣 第 7 章 讨 论 如 何 
工作 台 的 一 些 外 首 
外 部 DSL， 我 们 还 介 


语 吾 言 处 到 


设施 的 设计 没有 一 定之 规 。 因此 ， 背 脱 离 了 


具 体 的 环境 和 让 求 、 
股 性 地 讨论 外 部 DSEL 集 成 模式 。 第 7 章 和 第 8 章 将 以 具体 示例 来 详细 


介绍 这 方面 的 技术 。 


| ANTLRWMDSTE ANTLR 是 常 


第 8 章 详 细 介 绍 了 如 何 


J Eb 
经 介绍 完毕 


° 全 篇 讨 Y 6 者 假定 核心 
成 的 。 这 个 假设 各 


I 外 部 DSL 的 所 有 集 模式 足以 应 对 工作 


居 成 5 AN 主语 


9 解析 器 生成 器 。 我 们 还 介 
针对 采用 ANTLR 和 DSL 工 作 台 两 种 方式 下 产生 的 
人 应 用 程序 集成 


主语 言 设 


我 们 很 难 一 


绍 了 利用 


好 


的 大 部 分 愉 


程序 是 以 Java 开 发 ee 以 表现 力 更 


和合 现实 中 最 常见 的 情况 ， 所 


章 一 开篇 就 在 图 3-1 


展示 了 DSL 驱 动 应 用 程序 开发 


日 些 
可 题 ， 也 时 常 在 起 始 阶段 ; 
其 是 DSL 的 


3.4 处 理 错 误 和 异常 


i 规划 这 个 问题 ， 直 


基数 比较 大 的 时 候 。 


讨论 的 这 些 集成 
2 程 


强 的 语言 写 


问题 。 


-0 仑 的 下 一 
是 一 件 应 该 优先 去 做 


用 尸 看 到 友好 的 错 ; | 


受 限 的 语言 ， 错 误 泊 


要 有 章 可 循 ， 


> ， 
\ 态 。 以 上 让 点 妥 求 共 局 向 成 了 诺 设 和 
考 视角 ， 如 图 3-8 所 示 


了 其 应 用 


因为 DSL 是 一 种 应 用 


于 。DSL 环 境内 的 错误 和 异 
的 确切 状况 。 这 种 设计 


乱 骨 


和 造成 困惑 。 


能 面 对 的 两 种 主要 类 型 的 
杜 ， 是 DSL 设 计 者 不 可 忽略 的 


| ee 


清楚 地 命名 异常 状态 以 用 户 可 理解 的 领 
语言 来 处 置 系 的 站 从 而 


清楚 地 报告 所 用 户 打 
字 失 误 造 成 的 错误 


图 3-8 DSL 错 误 和 异常 状态 处 理 策 略 的 三 大 支柱 


根据 DSL 的 内 部 、 外 部 之 分 ， 以 及 实现 语言 的 区 别 ， 错 误 状 态 的 呈现 方式 也 有 所 不 同 。 表 3-4 总 结 
了 有 关 错 误 、 异 常 的 待 解 问题 ， 还 有 你 身 为 DSL 设 计 者 的 责任 。 


表 3-4 ”关于 DSL 错 误 和 异常 ， 你 应 该 知道 的 一 些 事 


中 


符 解 问题 DSL 设 计 者 的 解决 之 道 
可 淳 快 太 出 旦 AF1h 。 应当 审 
尔 需 要 清楚 声 和 至 党 状 太 异常 状态 也 是 领域 抽象 。 应 使 用 领域 语言 来 表述 过 程 中 
尔 需要 清楚 声明 DSL 内 的 异常 状态 可 能 发 生 的 任何 异常 。 详 见 34 1 节 


汕 用 让 锐 汪 入 名、 对 象 名 或 者 其 他 语言 成 分 ， 你 需要 处理 | 具体 策略 取决 于 所 用 的 实现 语言 。 详 见 3.4.2 节 
站 的 加 刁 扒 全， 息 和 天 修 国 民 护 驰名 生生 全 名 | 在 报告 此 类 异常 的 时 候 ， 请 务必 以 用 户 可 以 理解 的 语言 提供 所 
生 秆 么 事 呢 加 : “ ”个 个 ”| 有 相关 详情 。 详 见 3.4.3 节 


下 面 我 们 就 详细 探讨 这 几 个 问题 。 


3.4.1 给 异常 命名 


给 DSL 里 的 异常 状态 命名 的 时 候 ， 我 们 应 该 采用 领域 用 户 的 用 语 描 述 那 种 情况 。 异 常 不 一 定 是 设 
施 出 了 毛病 ， 可 能 只 是 业务 用 例 -条 分 支 。 命 名 的 重 | 点 是 通过 领域 语汇 将 情况 呈 
丰 的 例子 来 自 一 个 对 交易 双方 账户 进行 结算 的 系统 : 


val fromBalance = fromAccount .getSecurityBalance 
if (fromBalance <= tradeQuantity) 
throw new SettlementFailedException( 
" Insufficient security balance in ”十 
"account " + counterpartyAccount .getName + 
" for settlement completion") 
settle(...) 


系统 过 到 了 异常 状况 ， 当 卖家 的 证 券 余 额 不 足 的 时 候 ， 结 算 将 失败 。 事 件 的 状态 已 经 通过 异常 名 
SettlementFailedException 表达 出 来 ， 其 措辞 也 符合 现实 中 结算 系统 的 一 般 用 语 。 当 用 户 
他 立即 就 会 明白 当前 的 情况 。 而 且 ， 他 还 会 在 异常 附带 的 消息 里 看 到 详细 的 失败 
原因 。 


3.4.2 处 理 输入 错误 


不 管 DSL 语 言 多 么 上 自然， 用户 还 是 会 写 错 ， 这 是 人 类 本 性 。 如 果 所 用 编程 语言 是 像 Scala 和 Java 这 
样 的 静态 类 型 语言 ， 编 译 器 会 在 错误 发 生 时 立即 给 你 提醒 。 只 要 你 违反 了 语言 类 型 系统 的 规则 ， 


编译 器 束 会 像 警察 一 样 来 警示 你 ， 如 图 3-9 所 示 。 


你 的 程序 ， 用 静 
态 类 型 语言 三 写成 


/ 


图 3-9 编译 器 就 像 警 察 一 样 发 挥 警示 作用 


如 果 用 户 对 实现 DSI 的 宿主 语言 有 足够 的 了 解 ， 编 译 器 报告 的 错误 消息 将 很 有 帮助 。 现 代 IDE 都 带 
有 代码 助手 和 自动 补 全 功能 ， 有 利于 防范 输入 错误 。 可 是 ， 如 果 没 有 这 些 帮助 又 该 怎么 办 呢 ? 


1. 当 类 型 系统 不 可 用 时 


像 Ruby 和 Groovy 那 样 的 动态 类 型 语言 没有 编译 器 帮忙 找 出 类 型 错误 。 在 这 些 语 言 里 ， 类 型 错误 大 
多 要 和 双 过 语言 的 方法 分 ) 发 流水 绕 处 理 之 后 乍 为 运行 时 错误 呈现 出 来 。 即 使 没有 编译 时 的 错误 检 

查 ， 也 不 妨碍 设计 得 当 的 DSL 发 挥动 态 语言 的 优势 来 达到 目的 ， 比 如 利用 methodMissing 特性 
来 设置 友好 的 钳 误 处 理 程序 ， 向 DSL 用 户 传达 纠正 错误 所 需 的 信息 。 


对 于 使 用 动态 语言 来 设计 DSL 而 言 ， mgthou sing 是 非常 有 用 的 技巧 。 下 面 的 Ruby 示 例 
就 为 方便 用 户 理解 运行 时 异常 补充 了 足够 的 上 下 文 信息 : 


class Trade 

/feiss 

def method missing(method, *args, &block) 
raise NoMethodError, <<ERRORINFO 

method: #{method} 

args: #{args.inspect} 

on: #{self.to_yaml} 

ERRORINFO 
end 
pS 


| 


[mun 


如 果 用 户 输入 了 Trade 对 象 中 不 存在 的 方法 名 ，Ruby 将 默认 抛 出 一 个 NoMethodError 。 而 上 面 
的 代码 片段 实现 了 method_missing 来 充当 定制 的 错误 处 理 程序 ， 可 以 向 用 户 提供 更 多 上 下 文 信 
息 。 (至 于 在 Groovy 中 利用 methodMissing 合成 新 方法 的 例子 ， 请 翻阅 2.2.2 节 。) 


2. 语法 解析 器 的 功用 


对 于 外 部 DSL， 解 析 器 在 解析 输入 脚本 的 过 程 中 需要 确保 报告 输入 字符 串 发 生 错误 的 准确 行 号 和 
位 置 。 错 误 报 告 的 友好 程度 非常 依赖 于 生成 DSL 语 法 解析 器 所 采用 的 技术 。 在 错误 报告 方面 ， 
ANTLR 生 成 的 目 顶 癌 下 型 解析 器 比 YACC 的 目 底 向 上 型 解析 器 文 持 性 更 好 。 在 第 7 章 讨 论 通过 解析 

器 生成 器 设计 外 部 DSL 的 时 候 ， 我 们 会 详细 解说 这 部 分 内 容 。 


好 了 ， 对 于 注定 要 出 现 的 用 户 输入 错误 ， 你 已 经 知道 该 怎样 对 付 了 。 那 么 ， 如 果 业 务 状 态 出 了 错 
误 ， 该 怎么 办 呢 ? 


3.4.3 处 理 异 常 的 业务 状态 


DSL 应 该 有 能 力 精 确 报告 异常 状态 ， 且 按照 3.4.1 节 
告 异常 更 重要 的 是 处 理 异常 。 0 期 间 可 能 抛 
序 ， 包 括 实施 各 种 清理 动作 、 滚 


怎样 处 理 和 报告 异常 才 算 合适 ， 这 也 要 看 你 选择 什么 样 的 策略 来 集成 DSL 脚 本 。 像 3.2.1 节 中 那 种 
依靠 ScriptEngine 的 集成 策略 ， 一 自 在 报告 异常 方面 表现 不 好 。 下 面 的 例子 来 自我 们 之 前 讨论 
在 Java 应 用 程序 中 内 舱 Groovy 脚 本 的 部 分 ， 我 们 看 看 它 是 怎么 报告 异常 的 : 


Ff 说 的 “领域 驱动 的 异常 报告 ”方式 进行 。 比 报 
的 所 有 领域 异常 ， 都 应 该 有 相应 的 处 理 程 


。 庄 过 


ScriptEngineManager factory = new ScriptEngineManager()， 
ScriptEngine engine = factory.getEngineByName("groovy"); 


try { 
List<?> orders = (List<?>) 
engine.eval(new InputStreamReader( 
new BufferedInputStream( 
new SedquenceInputStream( 
new FileInputStream("ClientOrder.groovy"), 
new FileInputStream("order .ds1")))))， 
} catch (javax.script.ScriptException screx) { 


// 具体 的 处 理 @ 处 理 异 
} 


球 


示例 并 没有 在 Groovy 代 码 内 显 式 处 理 异常 ， 我 们 只 是 假设 脚本 的 调用 者 会 去 处 理 @。 
javax.script.ScriptException 类 带 有 getFileName( ) 、 getLineNumber( ) 等 方法 ， 
有 助 于 找到 发 生 腊 常 的 确切 位 置 。 凡 是 源 自 DSL 内 部 的 异常 都 必须 谨慎 处 理 ， 而 且 你 需要 向 用 
提供 充分 的 上 下 文 信息 一 一 这 是 重要 的 处 理 原 则 。 然 而 ， 当 DSL 代 码 运行 在 ScriptEngine 的 沙 
多 


面 时 ， 处 理 异 常 的 时 候 所 需 的 上 下 文 信息 不 一 定 直 观 。 这 个 缺点 再 次 说 明 ， 集 成 DSL 应 该 优 
选择 语言 言 专门 提供 的 方式 ， 只 在 不 得 已 时 选择 Java 脚 本 引 掌 方案 。 


DSL 的 设计 宗旨 是 领域 内 的 可 读 性 和 表现 力 ， 因 而 我 们 必须 时 刻 考虑 到 领域 用 户 。 与 此 同时 ， 我 
们 也 要 留心 DSL 对 应 用 设计 的 性 能 有 何 影响 。 应 该 如 何 折 中 呢 ? 


3.5 管理 性 能 表现 


性 能 是 重要 的 评判 标准 ， 但 不 管 你 怎么 想 ， 我 认为 它 并 不 是 最 重要 的 评判 标准 。 性 能 低下 的 应 用 
程序 其 性 能 可 以 通过 横向 或 纵向 增加 资源 来 提高 ;但 是 ， 如 果实 现 了 一 个 完全 不 关 ，, 心 沟通 和 给 E 护 
性 的 混乱 系统 ， 你 将 注定 受 困 于 它 。 


话说 回来 ,设计 应 用 程序 的 时 候 你 还 是 很 有 必要 考虑 性 能 因素 的 。 实 事 求 是 地 说 ， 良 好 的 DSL 设 
计 不 见得 一 定 拖累 应 用 程序 的 性 能 表现 。 有 些 动态 语言 ， 如 Groovy 和 Ruby， 确 实 比 Java 慢 一 点 。 
且 应 用 程序 开发 者 和 架构 师 需要 在 速度 和 其 他 特质 之 间 取 舍 ， 考 虑 代码 的 可 维护 性 、 表 现 力 、 对 
未 来 变化 的 适应 性 等 ， 并 在 它们 与 速度 之 间 进 行 权衡 。 


应 用 程序 并 非 每 一 部 分 都 需要 快 如 闪电， 有些 部 分 的 维护 性 比 速度 更 重要 。 例 如 ， 应 用 程序 的 配 
置 参数 一 般 只 需要 处 理 一 次 ， 这 可 能 是 在 应 用 程序 启动 的 时 候 进 行 。 所 以 ， 与 将 配置 写 入 代码 来 
加 速 应 用 程序 启动 相 比 ， 我 们 不 如 将 一 部 分 配置 参数 外 部 化 ， 以 更 易 读 的 形式 呈现 给 用 户 。 改 善 
表现 力 的 好 处 远 远 大 于 应 用 程序 速度 损失 可 能 导致 问题 的 坏处 。 


总 


Nf 
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目前 着 力 于 改善 JVM 上 动态 语言 执行 性 能 的 自发 行动 十 分 活跃 ， 因 此 我 们 更 应 该 选择 这 些 语 言 来 
设计 DSL。 如 未 现 在 就 注 章 提 高 代码 的 表现 力 ， 等 到 Groovy 和 Ruby 的 语言 运行 时 在 JVM 上 的 性 能 
提高 了 ， 我 们 的 代码 也 能 自动 享受 到 性 能 改善 的 益处 。 


大 家 完全 清太 楚 Groovy HRuby 代 码 比 相同 功能 的 Java 代 码 要 慢 一 些 ， 要 是 没有 好 处 ， 谁 会 用 它们 来 
设计 DSL 呢 ? 这 些 语言 好 维护 、 易 读 ， 而 且 能 很 好 地 适应 变化 ， 而 当 宿主 语言 本 身 具备 充足 的 表 
达能 力 时 ，DSL 的 成 长 历程 将 顺利 得 多 。 我 们 并 非 风 低 性 能 的 重要 性 ， 只 是 说 这 些 因 素 和 单纯 的 
执行 速度 同等 重要 。 你 设计 的 领域 语言 ， 其 演变 道路 和 生命 线 由 所 有 这 些 因素 共同 决定 。 


像 Scala 那 样 的 前 态 类 型 语言 性 能 几乎 等 同 于 纯 Java。3.2.2 节 介绍 的 DSL 包 装 器 集成 模型 ， 其 性 能 
基本 和 纯 Java 应 用 程序 没有 区 别 。 


脚本 引擎 因 为 运行 在 沙 盒 环 境 下 ， 多 少 会 慢 一 些 ， 不 过 反正 你 也 不 会 用 脚本 来 执行 强调 性 能 的 任 
务 。 脚 本 式 的 DSL 主 要 用 于 处 理 轻 量 级 领域 逻辑 ， 使 用 者 也 以 最 终 用 户 和 领域 专家 为 主 。 内 髓 式 
DSL (内 部 DSL) 主要 实现 成 宿主 语言 的 库 ， 所 以 并 个 会 拖累 性 能 。 外 部 PSE 没 有 依 徘 和 束 绢 ， 可 
以 自由 实现 其 语言 机 制 。 在 大 多 数 现 实 的 应 用 程序 中 ， 外 部 DSL 不 需要 设计 得 像 完 整 的 高 级 语言 
那么 复杂 ， 而 且 有 解析 器 生成 器 (YACC、ANTLR) 和 (Scala、Haskell 语 言 中 的 ) 解析 器 组 合子 
等 工具 帮忙 ， 如 果 善 加 利用 ， 并 不 难 构建 出 必要 的 语言 设施 。 


最 后 ， 请 记 住 一 条 性 能 调 优 的 黄金 法 则 : 多 点 基准 测试 ， 慢 点 优化 性 能 。 
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本 章 我 们 从 所 有 的 角度 出 发 讨论 了 DSL 驱 动 的 应 用 程序 开发 ， 介 绍 了 怎样 选择 恰当 的 策略 来 集成 
DSL 和 核心 应 用 程序 。 通 过 其 中 介绍 的 各 种 集成 模式 ， 相信 你 已 经 了 解 什么 时 候选 包装 器 模 
式 ， 什 么 时 候选 用 脚本 引 警 模式 。 在 相当 程度 上 ， 你 选择 的 实现 语言 决定 了 最 恰当 的 集成 策略 
我 们 还 谈 到 怎样 处 理 错误 和 异常 ， 如 何以 符合 领域 习惯 的 用 语 向 户 报告 错误 和 异常 。 最 后 ,我 
们 讨论 了 DSL 代 码 的 可 维护 性 和 性 能 表现 之 间 的 取舍 。 


要 点 与 最 佳 实践 


。DSL 从 不 单独 存在 。 它们 必定 与 核心 应 用 程序 集成 在 一 起 。 如 果 你 打算 设计 DSL， 请 从 第 
一 天 起 就 牢记 这 条 黄金 法 则 。 


。 人 DSL 的 实现 语言 应 该 选择 与 应 用 程序 的 核心 语言 集成 效果 最 佳 的 那 


。 外 部 DSL 通 常 需要 额外 的 设施 ， 如 解析 器 生成 器 。 在 计划 阶段 你 就 应 该 预 作 
队 拥 有 相应 的 开发 资源 。 


。 集成 DSL 与 核心 应 用 程序 时 ， 你 应 该 遵从 经 过 考验 的 最 佳 实践 。 
和 本 书 的 入 门 部 分 就 要 结束 了 。 后 面 的 章节 ， 我 们 将 深入 介绍 DSL 实 现 的 各 方面 内 


。 我 们 将 探讨 多 种 JVM 语 言 ， 用 每 一 种 语言 设计 、 实 讽 各 和 DSL 代 码 片 段 并 讲评 每 一 种 方式 
的 优 缺点 。 后 面 有 一 段 精彩 纷呈 的 旅途 在 等 待 着 你 。 准 备 好 ， 保 持 冷静 ， 我 们 要 出 发 了 。 
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第 二 部 分 实 


现 DSL 


从 表面 来 看 ，DSL 的 语法 和 领域 用 户 的 日 常生 活 中 的 用 语 一 致 。 本 书 第 一 部 分 着 重 强调 让 软 


件 “ 说 ”领域 语言 的 重要 性 


0 


站 


当 你 做 到 了 第 一 部 分 的 要 求 之 后 ， 还 有 DSL 语 法 背后 的 语义 模型 等 


着 你 去 培育 ， 按 照 抽象 的 设计 原则 去 塑造 它 。 除 非 语义 模型 易于 扩展 、 易 于 适应 、 易 于 组 合 ， 否 


则 建立 在 语义 模型 之 上 的 语法 很 难 有 出 色 的 表现 力 。 


AAA 站 | 


第 二 部 分 (第 4 章 ~ 第 8 章 ) 讨论 能 塑造 出 优秀 语义 模型 的 所 有 惯用 法 和 最 佳 实践 。 


设计 DSL 的 时 候 ， 你 要 按照 编程 所 需 的 抽象 层次 ， 找 到 最 适合 表达 该 层次 抽象 的 语言 。 这 一 


将 会 使 用 Groovy、Ruby、 


言 
Scala 和 Clojure 语 言 来 实现 DSL。 这 些 语言 各 有 长 处 和 短处 ， 也 各 有 其 特 


色 功 能 可 用 于 DSL 组 件 建 模 。 若 追求 基于 DSL 的 开发 方式 ， 你 就 有 必要 了 解 这 些 语言 提供 的 惯用 


法 ， 还 有 它们 与 主 应 用 


环境 。 


该 部 分 的 压轴 主题 是 分 析 器 组 合子 ， 


RR 构 结合 的 方式 。 


该 部 分 还 涵盖 了 基于 ANTLR 和 (来 自 Eclipse 的 ) Xtext 等 现代 框架 的 外 部 DSL 开 发 。ANTLR 是 一 
种 语法 分 析 器 生成 器 ， 可 以 帮助 DSL 编 写 定制 的 语法 分 析 器 。Xtext 是 完整 的 外 部 DSL 开 发 及 管理 


是 一 种 用 于 外 部 DSL 开 发 的 优美 的 函数 式 抽象 。 


涝 


第 4 章 内 部 DSL 实 现 模式 


本 章 内 容 


内 般 式 DSL 的 元 编程 模式 
内 藤 式 DSL 的 类 型 化 抽象 模式 


元 编程 模式 


。 生 成 式 DSL 的 运行 时 
。 生 成 式 DSL 的 编译 时 


本 书 第 一 部 分 已 经 领 你 步 入 了 DSL 了 驱动 的 开发 范式 。 我 们 一 起 见识 了 DSL 的 风采 ， 也 见识 了 它 在 


j 元 编程 模式 


现实 应 用 中 可 能 出 现 的 问题 。 从 本 章 开始 ， 我 们 开始 探讨 DSL 实 现 层面 的 内 容 。 


一 位 架构 师 都 有 个 “ 工 


学 习 ， 你 会 拥有 自己 的 “ 
及 的 话题 。 


具 箱 ”， 里 面 放 着 自己 用 来 雕琢 优美 软件 制品 的 趁 手 工具 。 经 过 这 一 章 的 
工具 箱 " 存 放 一 套用 于 实现 DSL 的 架构 模式 。 图 4-1 简 单列 举 了 本 章 打算 水 


为 什么 需要 一 套 
“DSL 实 现 模式 ” 
L 有 具 


内 艇 式 DSL 的 模式 


类 型 化 抽象 


图 4-1 本章 路 线 图 


绝 不 可 忽视 DSL 实 现 


h 


实 开 发 工 


FE 的 模式 。 内 部 DSL 一 
(meta-object protocol) ， 
语言 


股 都 内 


的 惯用 法 


最 佳 实践 。 


生成 式 DSL 


运行 时 元 编程 


的 模式 


此 ， 我 们 


首先 


般 了 


可 以 


语言 


通过 生成 宿主 语 


象 能 力 可 用 于 ; 


二 


解 这 类 模式 。 4.4 节 和 4.5 节 讨论 不 同 语 
产生 的 DSL 称 为 生成 式 DSL， 因 为 它们 简洁 的 表 


EN 


已 


不仁 
， 如 Ruby 和 Groovy， 我 人 
竺 DSL 建 
的 代码 


Ee 


语言 ， 而 充当 7 


在 4. 


2 


上 实 


语言 的 内 


用 一 此 


动态 行为 。 


+ 


让 


讲解 几 和 


会 巴 


日 


成 能 力 ， 它 们 可 


从 


面 语法 所 代表 的 


领 后 


已 


塞 满 各 下 


实用 的 问 


4.1 充实 DSL“ 工 具 箱 ” 


后 大 | 


身 市 着 塞 得 


币 总 是 随 


的 代码 来 实现 的 。 学 习 
题 域 建 模 技 巧 、 模 式 和 


满 满 的 工具 箱 。 箱 


完 本 章 
最 佳 实 


践 。 


会 感觉 胸有成竹 ， 


A 
小 人 


基体 
在 一 年 


然后 是 其 车 自己 


年 的 历练 


bpDSL 的 工具 


尤其 是 实现 内 间 


DSL 工 具 ， 
十 这 


我 们 接 
计 场 景 。 


着 2.3.1 


3 
举 出 金 


= 


J 


逐渐 充实 


0° 


淹 


有 最 开 
去 的 。 


始 的 几 件 


这 本 书 会 交 给 你 一 


讨论 的 内 部 DSL 一般 模式 往 下 说 。 它 们 都 是 一 些 


工具 是 他 们 从 师 侍 那 9 


，4.3 节 以 Scala 作 为 实现 语 
用 于 实现 简练 的 内 部 DSL 。 
域 行为 ， 是 在 编译 时 或 运行 时 


言 讲 
这 样 


因为 你 的 “ 工 


LL 箱 ”里 将 


全 


= 


放 进 


些 适 


继承 来 的 ， 
“箱子 ”里 的 


实现 模式 ， 适 


节 


融 


1 他 


论 ， 


。 阅读 的 时 人 
en 


展开 讨论 之 前 ， 


候 ， 


和 
D 
和 有 


图 。 


模式 对 应 的 实现 制品 
SL 类 别 下 的 一 个 模式 
HGroovy 的 隐 式 上 下 文 
实现 制品 都 有 利于 DSL 服 务 了 


J 


用 了 不 少 代码 片段 来 演示 
系统 这 个 问题 域 的 例 


这 文 些 模式 在 和 吊 用 i 


五 


万 


于 5 he: 


\ 寺 


请 留 


心 收集 可 用 于 充盈 


尔 “了 


1 。 右 


. 箱 " 的 工具 吧 


时候 ， 


般 不 同 手法 所 用 的 入 
我 们 先 看 看 图 4-2。 


: 现 语言 
4-2 


， 重 点 说 


的 呈 E 现 形式 。 


于 不 同 的 DSL 设 
本 章 将 延续 前 面 的 
和 场景 联系 到 它们 在 解答 域 的 对 应 实 


我 会 演示 


| 


， 也 就 是 本 章 
反射 式 元 编 


程 


(implicit context 


的 合式 还 是 我 人 
的 内 容 。 其 


] 在 第 2 章 看 到 


的 那些 ， 


。 在 本 章 的 讨论 中 


我 们 


处 标注 


需要 澡 明 


< 同一 
每 种 手法 涉及 的 权衡 取舍 。 


这 次 标注 
请 看 内 替 式 


模式 的 不 


了 每 


全 
到 


这 种 模式 实现 Ruby 


。 了 两 和 


其 用 户 : 


无 需 增 


兽 加 他 


E 何 不 必要 的 复杂 性 ， 


还 有 Ruby 的 动态 装饰 器 (dynamic decorator) 


就 能 清 


青 晰 地 表达 意 


灵巧 API 
| (连贯 接口 ，Java 语 
f 和 Ruby 语 言 ) 


言 二 HH 站 | 


反射 式 元 编程 
( 隐 式 上 下 文 ，Ruby 


> | 语言 和 Groovy 语 言 ; 
内 在 式 语言 和 }y 二 冲 ; 
mk 上 上 Ks 器 ，Ruby 语 言 ) 


二 一 国人 ET 
( 内 部 DSL ] (类 要 型 化 的 抽象 ， 
一 Scala 语 言 ) 


-| 生成 式 编译 时 元 编程 
(通过 宏 来 进行 代码 
\ 生成 ，Clojure 语 言 ) J 


运行 时 元 编程 
(运行 时 代码 生成 ， 
Ruby 语 言 ) 


内 部 DSL 实 现 模式 及 其 制品 示例 。 本 章 将 讨论 这 些 制 品 ， 并 按 图 中 所 列 语言 提供 相应 的 示 
实 


如 图 4-2 所 示 ， 内 部 DSL 分 为 两 类 : 


。 内 峰 式 DSL DSL 寄 身 于 宿主 语言 ， 这 意味 着 所 有 的 DSL 代 码 都 是 程序 员 直 接 写 出 来 的 。 
。 生成 式 DSL 部 分 DSL 代 三 (大 多 为 重复 性 的 内 容 ) 由 编译 时 或 运行 时 语言 机 制 生成 。 


在 现实 的 应 用 中 ， 模 式 不 会 单独 出 现 。 一 般 ， 多 种 模式 协同 作用 ， 构 成 配套 方案 ， 合 力 解 决 用 例 
场景 。 一 下 "模式 的 作用 产物 被 另 一 种 模式 所 承接 ， 整 个 系统 环 环 相 扣 ， 就 像 “模式 语言 "在 进行 
场 融 治 对 话 。 后 面 的 讲解 风格 会 按照 DSL 设 计 者 的 工作 思路 来 安排 。 也 就 是 说 ， 我 不 打算 像 字 
那样 工整 地 分 别 介绍 每 种 模式 ， 而 是 先 举 出 金融 中 介 系统 领域 的 DSL 代 码 片段 示例 ， 然 后 剖析 其 
的 模式 结构 。 这 样 你 不 但 能 看 到 每 和 模式 在 现实 用 例 中 的 呈现 方式 ， 还 能 体会 不 同 模式 结构 如 
可 协同 形成 更 大 的 整体 。 


我 们 首先 看 看 适用 于 实现 内 嵌 式 DSL 的 模式 结构 。 
4.2 内 峰 式 DSL: 元 编程 模式 


元 编程 就 是 “编写 写 程序 的 程序 ”。 书本 上 像 这 样 的 元 编 l 程 定义 ， 很 容易 使 人 误 以 为 元 编程 不 过 是 
给 代码 生成 换 了 个 花哨 的 名 字 。 从 实践 角度 来 说 ， 元 编程 ， 是 在 语言 环境 的 编译 时 或 运行 时 设施 
人 的 元 对 象 来 撰写 程序 。 看 过 2.5 市 的 深入 讨论 ， 相 信 你 能 理解 这 个 定义 ， 我 们 就 


节 我 们 将 观察 金融 中 介 系 统领 域 的 几 个 例子 ， 它 们 都 可 以 用 元 编程 手段 来 建 模 。 对 于 一 部 分 例 
子 ， 我 会 首先 用 一 种 不 具备 元 编程 能 力 的 语言 来 实现 ， 然 后 ， 当 我 们 换 一 种 语言 ， 发 挥 其 元 编程 
能 力 在 更 高 层次 的 抽象 上 编程 时 ， 你 会 看 到 前 后 两 种 实现 简洁 度 的 变化 。 


代码 提示 。 后 面 的 内 容 中 含有 大 量 代码 片段 ， 我 会 插入 补充 内 容 说 明 一 些 预备 知识 ， 解 释 必要 
的 语言 特性 ， 以 便 读 者 理解 实现 中 的 细微 之 处 。 这 些 补充 内 容 只 是 简单 说 明 下 稍 后 代码 消音 
人 欲 了 解 符 定语 言 的 更 多 相关 信息 ， 请 参阅 本 书 附 录 中 相应 语言 的 速 查 


本 市 接 下 来 给 出 了 3 种 


模式 风格 ， 这 些 


实现 。 我 们 
现 结构 。 一 个 用 例 不 见得 只 
的 职责 ， 准 备 了 好 几 下 


将 从 一 个 用 例 场景 


风格 落实 之 后 ， 


就 成 为 


开始 ， 从 用 户 的 
\ 应 用 了 一 下 


4.2.1 隐 式 上 下 文 和 灵巧 API 


我 们 先 对 前 画 


来 个 简短 


角度 去 观察 其 
模式， 实际 上 以 下 每 和 
具体 的 模式 实现 。 


1 的 DSL ， 


并 且 解 


可 顾 。 客 户 在 证 


券 交 
息 ， 


交易 商 那 9 


开户 ， 


图 4-2 列 出 的 那些 元 编程 模式 的 具体 
FTDSL 来 了 解 其 实 
1 模式 风格 之 下 ， 都 为 了 


虱 行 解答 域 


证 券 交 易 商 代 客 户 


有 的 股票 并 保证 
账户 ”。 


全 。 关 于 


客户 账户 的 更 多 信 


ZF 时 


下 面 我 们 准备 设计 一 自 


父 允 新 


设 客户 账户 的 DSL 。 


藻 人 多- 林 ， 


1. 评判 DSL 的 表现 力 
来 看 下 而 


站 Ruby 知 识 点 


。 Ruby 怎 样 定义 类 和 对 象 。 Ruby 是 一 种 面向 对 象 (OO) 
言 差 不 多 。 不 过 ，Ruby 


杏 、 


、 扩 展 对 象 。 


。Ruby 用 “ 块 ” (block) 来 实现 闭 包 。 闭 包 指 的 


即使 这 些 元 编程 技巧 


这 段 DSL 脚 本 。 它 的 功能 是 包 


请 翻阅 3.2.2 节 的 补充 内 容 “ 金 


融 中 


交易 他 们 持 


ly 


办 


你 可 以 


行 训 


FE 用 于 用 户 看 不 到 的 内 部 实现 。 


E 判 元 编程 技巧 对 


PR 


有 其 独特 的 对 象 模式 ， 


的 “ 块 ” 语 法 实现 闭 包 。 


允许 你 在 运行 时 


Ruby 元 编程 基础 知识 。 
材料 ， 例 如 类 、 对 象 、 实 例 、 方 法 
探查 其 对 象 模型 ， 


代码 清单 4-1 ”创建 客 


holders "John Doe", 


type "client" 


.Save.and_then do |al 


Registry.register(a) 
Mailer .new 


. Subject ("创建 新 账 
.body ("客户 账 
.Send 


户 账 
Account .create do 
number "CL-BXT-23765" 


"Phil McCay" 
address "San Francisco" 


方法 、 


户 


的 DSL 


@ 创建 账 


email "client@example.com" 


户 


名 保存 账 


.to(a.email address) 
.cc(a.email address) 


PIT 


户 #{a.no} 已 创建 ") 


和 @ 开户 后 发 送 邮件 


建新 的 客户 账户 ， 


含 许多 可 以 用 
也 允许 动态 


然后 向 证 券 


! 介 企业 汶 


语言 ; 


允许 


= WE 
EE 


i 


已 


个 函数 和 它 的 执行 环境 。Ruby 通 过 


单 例 人 


F 反射 式 和 生成 式 元 编程 
(singleton) 方法 等 。Ruby 元 
也 改变 对 象 行为 或 生成 代 


码 。 


FE 册 该 账 


定义 类 的 方式 和 
j 户 在 运行 时 通过 元 编程 手段 修改 、 检 


介 系 统 : 客 


API 表 现 力 的 改 


其 他 OO 语 


条 六 


已 


的 元 件 
局 程 机 制 


摆 的 代码 展 
和 向 


是 下 ， 


展示 了 用 户 使 用 DSL 的 情况 。 
DSL 使 用 者 表达 清楚 的 。 


留意 


尺码 创建 账户 


这 段 


料 [各 
样 隐 


藏 实现 细 


同时 又 


实现 的 前 提 
的 DSL 实 现 。 


已 与 


仅 从 代码 清 


单 4-1 看 


出 是 哪些 事情 吗 ? 


如 果 你 全 都 能 看 


情 。 
出 来 ， 那 么 这 


和 账户 创建 过 


你 能 够 在 不 知道 内 部 


文 就 是 一 段 漂亮 


你 很 容易 识别 这 段 DSL 代 码 的 全 部 举动 。 它 首先 创建 账户 @ 并 保存 (可 能 是 保存 到 数据 库 ) @， 然 
后 是 登记 账户 并 发 送 邮 件 给 账户 所 有 人 @ 等 动作 。 
从 表现 力 上 看 ， 这 段 DSL 给 用 户 提 供 了 一 套 符合 直观 感觉 的 API， 效 果 很 好 。 领 域 专 家 拿 到 这 上 段 
DSL 脚 本 肯定 也 能 看 出 里 面 的 动作 序列 ， 因 为 脚本 中 很 好 地 运用 了 领域 语汇 。 接 下 来 ， 我 们 开始 
深入 了 解 内 部 实现 。 
2. 定义 隐 式 上 下 文 
Account 抽象 内 实现 了 创建 实例 时 需要 调用 的 众多 方法 。 代 码 清 单 4-2 中 完全 是 一 般 Ruby 语 言 定 
义 类 实例 方法 的 常规 写法 。 

代码 清单 4-2 ”Account 抽象 在 其 实现 中 运用 了 领域 语汇 
class Account 

attr_reader :no, :names, :addr, :type, :email address 


def number (number) 
@no = number 
end 


def holders(*names) 
Q@names = names 
end 


def address(addr) 
@addr = addr 
end 


def type(t) 
@type = t 
end 


def email(e) 
Qemail address = e 


end 
def to_s() 
"No: "+ @nNno.to_s + 
" / Names: (" + @names.join('，').to_s + 
") / Address: " + @addr.to_s 
end 
end 
这 些 显而易见 的 方法 定义 不 是 我 们 关心 的 内 容 ， 我 们 要 关注 这 些 常 规 语句 表现 出 来 的 微妙 方面 ， 
发 现 前 面 所 说 的 那些 实现 模式 。 
拿 到 一 段 代 码 ， 你 特 先 要 确定 它 的 执行 上 上 下文。 这 个 上 下 文 可 以 是 刚才 定义 的 一 个 对 象 ， 也 可 以 
是 你 特地 配置 或 者 隐 式 声明 的 一 个 执行 环境 -有 的 语言 要 求 对 于 每 一 俱 方法 调用 都 明确 将 方法 和 
对 应 的 上 下 文联 系 在 一 起 。 请 看 下 面 的 Java 代 码 : 


Account acc = new Account (number); 
acc.addHolder (hName1); 
acc.addHolder (hName2); 
acc.addAddress(addr); 

/si 


所 有 针对 Accou 


nt 对 象 的 方法 调用 都 必须 在 前 面 带 


上 它 的 调用 者 ， 以 此 显 式 地 传递 上 下 文 对 象 。 


显 式 表达 上 下 文 会 


产生 繁 匈 的 代码 ， 不 利于 我 们 创作 简洁 易 读 的 DSL。 如 果 一 种 语言 允许 隐 式 声 


明 上 下 文 ， 肯定 不 是 坏事 。 
holders 、type 、email 等 方法 调用 都 发 生 于 一 个 隐 式 上 下 文 
Account 实例 之 内 。 


那么 怎样 建立 隐 
妙 的 元 编程 手法 


class Account 
attr_reader 


def self.create(&block) 


隐 式 上 下 文 有 利于 语法 简明 ，API 紧 凑 。 代 码 清 单 4-1 中 的 number 、 


， 也 就 是 正在 创建 的 


式 上 下 文 呢 ? 请 看 下 面 从 Account 类 中 截取 的 相关 Ruby 代 码 片段 ， 它 使 用 一 点 巧 


达到 了 目的 : 


:no, :names, :addr, :type, :email 


# 省 略 部 分 同 代码 清单 4- 


address 


@ create 接 收 一 个 块 


account = Account ,new 
account ,instance_eval(&block) @ 在 Account 的 上 下 文 内 执行 传 入 的 块 
account 
end 
end 
青 看 位 置 @@，instance_eval 是 一 种 Ruby 元 编程 语法 结构 ， 它 会 在 其 调用 者 的 上 下 文 内 执行 传 


递 给 它 的 Ruby 块 ， 因 为 我 们 是 在 Account 对 象 上 调 


的 ， 所 以 块 就 在 Account 对 象 的 上 下 文 内 


执行 。 结 果 对 了 


那些 ji 过 块 进行 专 阅 的 方法 @ 来 说 ， 


构造 完毕 的 account 对 象 。 这 是 一 个 反射 式 元 编程 


定 执行 的 上 下 文 。 


相同 的 手法 也 适 月 


我 们 用 Groovy 语 言 


有 于 Groovy，Groovy 语 言 同样 具备 和 


就 好 像 每 次 调用 的 时 候 都 隐 式 地 接受 了 刚刚 
的 例子 。Ruby 执 行 环 i 境 在 运行 时 通过 反射 确 


民 强 的 元 编程 能 力 。 


言 改 写 上 述 Ruby 代 码 ， 结 果 见 代码 清单 4-3。 


下 Groovy 知 识 点 


。 如 何在 Groovy 中 创建 闭 包 并 为 方法 分 发 准备 


EE 下 Xs 


代码 清单 4-3 ”为 方法 分 发 准备 隐 式 上 下 文 的 Groovy 代 码 


class Account { 


// 方 法 定义 


Static crea 
def acc 
account 
account 


} 


Account .create 
number 
holders | 
address 
type 
email 


前 后 两 种 实现 不 


te(closure) { 
ount = new Account() 
.With closure 


{ 

CL-BXT-23765 

John Doe', 'Phil McCay' 
San Francisco' 


'client' 
'client@example.com' 


导 到 和 的 API 表 现 力 差不多 


下 人 


太一 样 ， 但 


0 


3. 利用 灵巧 API 改 善 表 现 力 


。 连贯 接口 是 提高 可 读 怕 
出 成 为 另 一 个 方法 的 输入 。 


读 是 改善 DSL 表 现 力 的 必然 结 寻 


。 通过 广 


FE、 实现 灵巧 API 的 途径 之 
了 表达 起 来 更 


这 种 手法 使 连 串 的 API 调 月 


法 串联 ， 一 个 方法 的 输出 很 目 他 


目 然 ， 也 比较 接近 问题 域内 真 3 


动作 序列 。 同 时 


》 


的 连 串 方法 


O 


发 送 邮件 之 前 
FE 序列 是 一 样 的 


因为 调用 的 时 候 择 脱 了 一 些 死板 代码 ，API 显 


用 四， 你 会 看 到 那里 的 API 调 用 跟 你 平常 


使 用 


使 用 


的 代码 片段 实现 了 代码 清单 4-1 


田 。 代 码 清单 4-4 


言 ;五 y 
意 语 名 均 合 六 


你 在 设计 DSL 的 时 候 应 该 当 


的 Mailer 类 。 


代码 清单 4-4 


的 Mailer 类 


实现 了 连贯 接 


class Mailer 


attr_reader :mail to, :mail cc, :mail subject, 


def to(*to_recipients) 
@mail to = to_recipients 
self 

end 


= 


身 以 利 呈 


@ 返 


def cc(*cc_recipients) 

@mail cc = cc_recipients 

self 

end 

def subject(subj) 

@mail subject = subj 

self 

end 

def body(b) 

@mail body = b 

self 

end 

def send 

# 实际 的 发 送 操作 

puts "发 送 邮 件 到 (#{@mail to.join(",")})" 
end 

end 


:mail_ 


body 


周 用 者 @ 充 当下 一 个 调用 的 上 下 文 。 
g 件 最 终 发 送 


出 去 。 
了 创建 账户 


Mailer 实例 被 返回 给 
结束 整个 动作 序列 ， 把 


代码 清单 4-1 向 我 们 展示 


F 户 的 3 个 步骤 在 代码 


三 


取 


send 方法 是 方法 链条 的 最 后 一 环 ， 它 


已 经 比较 明显 。 不 过 ， 图 4-3 


| 的 DSL， 玫 
书 们 运用 各 和 


把 步骤 呈现 得 更 清楚 ， 


模式 塑造 了 DSL 的 最 终 


少 太 。 


LA 


| 
Ee 


账户 各 参数 以 块 


a 的 形式 传递 进来 


准备 好 隐 式 上 下 文 


通过 连贯 接口 填充 所 需 信息 


图 4-3 ”模式 的 应 用 步骤 ，@ 在 通过 ijnstance_eval 设立 的 隐 式 上 下 文 里 创建 账户 。@ 保 存 账 


户 。@ 通 过 连贯 接口 配置 好 Mailer ， 


分 为 如 下 3 个 步骤 : 
第 三 步 被 设置 成 一 个 闭 包 (或 Ruby 块 ) 


模式 的 应 用 


用 了 
副作用 ” 


执行 其 他 


的 操作 


管理 程序 的 副 


副作用 的 


象 可 以 为 你 减少 


= 用 


是 一 个 微妙 


> 许多 


国 
作 。 代 码 清 s 


= 


白 4- 1 就 二 


路 不 仅 适 用 了 


本 节 我 们 讨论 了 基于 DSL 


容 。 
本 节 要 点 


段 中 的 create 类 方法 ， 


FF 内 音 


巴 所 有 涉及 避 


通过 方法 串联 手 
隐 式 上 下 文 可 降低 DSL 的 烦琐 程度 ， 形 成 
或 者 代码 清 


F 法 实现 带 连 贯 接口 的 灵巧 API 


BDSL 设 计 ， 你 设计 任 
的 设计 范式 下 两 入 


创建 一 个 账 


。account 实 
(side-effecting) 的 操作 。 


程序 设计 
设 


烦恼 。 
中 作用 的 


列 


司 题 。 


账户 通过 一 个 块 来 传递 


户 实例 ， 将 之 保存 到 数据 库 ， 执 行 
。 之 前 创建 的 account 实例 被 作 
在 操作 完成 后 仍然 保持 不 变 ; 注意 ， 


我 们 
计 DSL 的 时 候 ， 你 应 该 


[a RY #2 


需要 将 副 作 


隔离 以 保持 所 
尽量 明确 地 隔离 


续 操 作 。 在 这 
i 
第 三 步 操 作 属 于 


[9 


[on 


象 的 纯粹 性 。 无 
有 副作用 的 操 


码 解 


四 


本 LI 


放 到 


EF 何 抽象 都 应 该 牢记 这 


14-3 


把 副 人 
接 下 来 ， 


IT 


用 跟 纯粹 的 
我 们 继续 介绍 别 的 实现 结构 ， 


象 隅 离开 (参见 代码 


被 普 志 使 用 的 实现 模式 。 了 


(参见 代码 清 
比较 紧 竣 的 API， 
'Groovy 代 码 片 段 里 的 create 前 


了 一 个 闭 包 
个 原则 。 


1。 隔离 


副作用 的 设计 


衣 


万" EE 


EE 本 代 


帮助 提高 


清单 4-1 


4.2.2 利用 动态 装饰 器 的 反射 式 元 编程 


在 4.2.1 厂 ， 我 们 了 解 到 元 编程 技巧 可 以 用 3 


它们 通过 反射 式 元 多 


扁 程 在 DSL 


一 种 元 编程 手 


法 : 


< 改善 DSL 的 表现 力 和 简 洗 度 。 才 


通过 动态 操控 类 对 象 ， 对 其 他 对 象 进行 装饰 。 


的 要 点 见 下 面 的 补充 内 


14-4 中 的 Mailer 类 ) 。 
现 力 (参见 Ruby 代 码 


态 方法 ) 


用 于 开户 和 发 送 通知 邮件 的 Ruby 块 ) 。 
实现 动态 行为 。 


装饰 器 (Decorator) 模式 用 于 在 运行 时 动态 地 增加 对 象 的 功能 。 ( 装 
以 增加 它们 的 组 合 能 力 ， 附 录 A 对 此 有 所 讨论 。) 本 节 我 们 偏重 于 3 
编程 的 威力 ， 做 出 更 动态 的 装饰 器 。 


1. Java 中 的 装饰 器 
我 们 还 是 从 Trade 抽象 入 手 ， 这 个 领域 实体 是 对 交易 过 程 中 一 些 最 基本 相关 要 素 的 建 模 。 作 为 例 


A a ts sa 于 些 影 响 其 交易 净值 的 配套 装饰 器 。 关 于 如 何 计算 交易 
的 现金 价值 ， 请 看 补充 内 容 * 金 融 中 介 系统 : 交易 的 现金 价值 ”。 


将 恒 


i 器 模式 用 在 抽象 之 间 ， 可 
现 的 角度 ， 看 看 怎样 发 挥 元 


[ 鸣 金融 中 介 系统 ， 交 易 的 现金 价值 


上 笔 交 易 都 有 其 现金 价值 ， 也 就 是 接受 证 券 的 交易 方 需要 向 交 出 证 券 的 交易 方 支付 交 人 ° 
这 了 个 最 终 的 支付 金额 称 为 NSV (Net Settlement Value， 净 结算 价值 ) 。NSV 主 要 由 两 部 分 构 
成 证 券 总 值 和 税 费 。 证 券 总 值 取 决 于 所 交易 证 券 的 单价 、 种 类 ， 还 有 一 些 附加 成 分 ， 如 债券 


的 欧 忆 价格 。 税 费 额 需要 计 入 各 种 税 、 手 续费 、 交 易 征 费 、 佣 金 以 及 交易 过 程 中 产生 的 利息 
证 券 总 值 的 计算 与 证 券 的 类 型 有 关 (比如 有 股权 和 国定 收益 之 分 ) ， 但 大 体 上 是 所 交易 证 券 的 
单价 和 数量 的 一 个 函数 。 
另外 的 税 费 部 分 ， 根 据 交易 发 生 的 所 在 国 、 所 在 交易 所 、 交 易 的 证 券 ， 各 有 不 同 规定 。 例 如 ， 
在 中 国 香港 ， 印 花 税 被 定 为 0.1259%， 买 入 和 卖 出 股权 证 券 要 交 0.007% 的 交易 征 费 。 
请 看 代码 清单 4-5 中 的 Java 代 码 。 


代码 清单 4-5 ”Trade 抽象 和 它 的 Java 装 饰 器 


public class Trade { @ Trade 抽象 
public float value() { @ 计算 并 返回 交易 价值 
//... 
} 
} 


public class TaxFeeDecorator extends Trade { 目 装饰 器 
private Trade trade; 


public TaxFeeDecorator(Trade trade) { 
this.trade = trade; 


Q@Override 
public float value() { 


return trade.value() + //...; @ 税 费 计算 的 具体 细节 
} 


public class CommissionDecorator extends Trade { @ 装饰 器 
private Trade trade; 


public CommissionDecorator(Trade trade) { 
this.trade = trade; 


Q@Override 
public float value() { 
return trade.value() + //...; @ 佣金 计算 的 具体 细节 


代码 清单 4-5 除 了 实现 Trade 抽象 的 契约 @@， 还 有 两 个 配套 的 装饰 器 和， 装饰 器 与 Trade 搭配 使 用 
可 影响 交易 的 成 交 净 值 @@B@ . 这 些 装 饰 器 的 用 法 如 下 : 
Trade t = 


new CommissionDeco 


System.out,.println(t,V 


rator( 


alue()); 


new TaxFeeDecorator(new Trade())); 


你 完全 可 以 在 不 触动 基 本 的 Trade 抽象 前 提 下 ， 在 其 上 继续 增加 其 他 装饰 器 。 最 后 计算 出 来 的 交 
易 净 值 等 于 施加 于 Trade 对 象 的 所 有 装饰 器 的 合并 作用 结果 。 
尺码 清单 4-5 就 是 用 Java 实 现 的 ， 是 针对 计算 给 定 交 易 的 交易 净值 这 一 任务 而 设计 的 DSL。 显 然 这 
已 经 是 以 Java 作 为 实现 语言 所 能 得 到 的 最 好 结果 了 。 站 在 程序 员 的 角度 ， 这 段 DSL 很 好 理解 ， 
熟悉 GoF 设 计 模式 (4.7 节 参考 文献 1 ) 的 程序 员 会 很 满意 地 看 到 抽象 的 模式 原理 被 落实 到 一 个 具 
本 的 领域 实现 。 不 过 ， 我 们 还 能 做 得 更 好 一 些 吗 ? 
2. 改进 Java 实 现 
我 们 可 以 凭借 Ruby 或 Groovy 的 反射 式 元 编程 能 力 提 高 DSL 的 表现 力 和 动态 性 。 不 过 ， 在 查看 具体 
的 实现 之 前 ， 我 们 先 来 确定 一 下 哪些 地 方 有 改进 的 潜力 。 请 看 表 4-1。 
表 4-1 先前 用 Java 和 装饰 器 模式 实现 的 DSL 可 能 具有 的 改进 点 
能 否 改 进 如 何 改 进 

表现 力 和 领域 友好 度 可 以 更 简洁 一 些 。 毕 况 对 这 方面 的 追求 是 无 止境 的 

Trade 抽象 和 装饰 器 被 硬性 捆绑 在 一 起 去 除 静 态 继承 关系 ， 这 可 提高 装饰 器 的 重用 性 
eb ve ml ra 
Ruby、Groovy 等 动态 类 型 语言 比 Java 的 语法 简练 不 少 。Ruby 和 Groovy 都 具备 鸭子 类 型 〈duck 
typing) 特性 ， 通 过 牺牲 对 于 Java、Scala 等 语言 开 箱 即 用 的 静态 类 型 安全 ， 可 以 换取 更 有 利于 重用 
抽象。 (其 实 Scala 也 可 以 实现 鸭子 类 型 ， 详 见 第 6 章 。) 表 4-1 所 列 的 改进 点 要 求 你 对 Ruby 的 动 
态 性 有 更 深入 的 了 解 ， 所 以 我 们 接 下 来 介绍 这 方面 的 一 些 知识 。 
3. Ruby 中 的 动态 装饰 器 
代码 清单 4-6 中 的 Ruby 代 码 是 和 先前 的 Java 实 现 差 不 多 的 Trade 抽象 ， 其 中 充实 了 一 些 较 为 贴近 现 
实 的 内 容 。 

站 Ruby 知 识 点 


。Ruby 的 模块 (module) 特性 有 利于 实现 mixin ， 


。 通过 反射 来 生成 运行 时 代码 的 相关 Ruby 元 编程 基础 知识 。 


mixin 可 以 附加 在 其 他 类 或 模块 上 。 


代码 清单 4-6 ”Trade 抽象 的 Ruby 实 现 
class Trade 
attr_accessor :ref_no, :account, :instrument, :principal 


def initialize(ref, 


@ref_no = ref 
Qaccount = acc 
@instrument = 


acc, ins, prin) 


ins 


@principal = prin 
end 


def with(*args) 
args.inject(self) { |memo, val| memo.extend val } @ 动态 模块 扩 
end 


弄 


def value 
@principal 
end 
end 


与 之 前 的 Java 实 现 相 比 ， 只 有 with 方法 @ 这 一 主人 比较 值得 讨论 ， 其 他 部 分 差异 不 大 。 我 们 等 下 
回头 讨论 with 方法 ， 现 在 先 看 看 装饰 器 的 部 分 。 我 把 装 饰 器 设计 成 Ruby 模 块 的 形式 ， 使 用 的 
时 候 可 以 将 其 作为 mixin 混 入 到 实现 主体 之 中 〈 关 于 mixin， 请 参阅 A.3 世 ) : 


module TaxFee 
def value 
Super + principal * 0.2 
end 
end 


module Commission 
def value 
Super - principal * 0.1 
end 
end 


显而易见 ， 这 段 代 码 中 的 装饰 器 并 没有 静态 地 耦合 到 作为 抽象 主干 的 Trade 类 。 我 们 轻而易举 地 
就 达成 了 表 4-1 中 的 一 项 改进 目标 。 


我 们 刚刚 不 是 提 过 鸭子 类 型 吗 ? 上 术 代 码 片段 中 的 这 些 模 块 可 以 混入 到 任意 实现 了 value 方法 的 
Ruby 类 中 ; 正好 我 们 的 Trade 类 就 有 这 么 一 个 value 方法 。 那 么 上 面 模块 定义 中 的 super 调用 
是 怎么 发 挥 作用 的 呢 ? 在 Ruby 语 言 里 ， 如 果 你 指定 了 一 个 不 带 任何 参数 的 super 调用 ，Ruby 会 发 
送 一 条 消息 给 当前 对 象 的 父 对 象 ， 请 求 调 用 父 对 象 的 同名 方法 。 这 就 是 反射 式 元 编程 大 显 身手 的 
时 刻 了 。 此 处 调用 的 是 value 方法 。 我 们 调用 super 类 方法 的 时 候 并 不 需要 静态 地 绑 定 任何 具体 
的 父 类 。 图 4-4 展 示 了 指向 Trade 类 和 各 装饰 器 的 super 调用 如 何在 运行 时 动态 串联 到 一 起 ， 以 
达到 我 们 所 期 望 的 效果 。 


t Trade .r ('r=-12 =123 -12 200 ith TaxFe mn io 
LUe 
Commission.value = super -~ principal * 0.1 
四 
1 = 240 - 2 = 
! 
TaxF a super rincipal * 0.2 
本 
1 p00 $F 2 Jj.2= 24 
1 
1 
1 
Trad = incipal 
相 
1 
1 
20( 


图 4-4 展示 super 调用 如 何 将 value( ) 方法 串 接 在 一 起 。 调 用 从 Commission.value() 开始 ， 
Commission 是 链条 中 的 最 后 一 个 模块 ， 调 用 向 下 逐 级 传播 ， 直 到 Trade 类 。 实 线 箭 头 连接 起 来 
就 是 调用 的 链条 ; 求 值 计 算 沿 着 虚线 箭头 依次 进行 ， 最 终 求 得 结果 220 


在 这 个 例子 里 ， 元 编程 的 神奇 作用 体现 在 什么 地 方 ? 它 怎 样 改 善 DSL 的 表现 力 ? 者 回答 这 两 个 问 
题 ， ds gi 14-6 中 的 with 方法 。 这 个 方法 的 作用 是 把 作为 参数 传递 给 它 的 上 


昌 有 
装饰 器 动态 地 连接 到 Trade 对 象 ， 使 Trade 对 象 扩展 成 为 新 的 抽象 。 图 4-5 说 明了 装饰 器 与 主体 
类 动态 组 合 的 原理 。 


主体 抽象 (Trade) 装饰 器 (TaxFee、Commision 


万 一 


with() 方 法 在 运行 时 动态 地 
用 各 种 装饰 器 扩展 主体 抽象 


此 对 象 负责 响应 主体 抽象 


以 及 所 有 装饰 器 的 全 部 消 
| 且 辐 :到 


图 4-5 “主体 抽象 (Trade 类 ) 通过 with( ) 方法 动态 地 与 各 种 装饰 器 (TaxFee 和 Commission 
) 连接 起 来 ， 形 成 扩展 


我 们 完全 可 以 通过 对 Ruby 类 的 静态 扩展 取得 与 图 中 动态 扩展 相同 的 效果 。 但 是 在 运行 时 进行 扩展 
更 有 利于 各 部 分 抽象 提高 可 重用 性 ， 降 低 耦 合 程度 。 代 码 清 单 4-6 所 实现 的 Trade 对 象 与 装饰 器 结 
合 的 例子 如 下 : 


tr = Trade.new('r-123', 'a-123', 'i-123' 


,， 20000).with TaxFee, Commission 
puts tr.value 


i 企 运 行 时 绑 定 对 象 ， 结 果 得 到 上 面 代码 片段 中 的 DSL。 E 的 阅读 次 有 内 而 


合 上 自然 的 领域 语法 。 语 法 中 的 非 本 质 复 杂 性 低 于 先前 的 Java 版 本 ， 对 于 领域 户 而 言 表现 
力 明 显 提高 。 (关于 非 本 质 复 杂 性 的 讨论 ， 请 参阅 A.3.2 太 。) 至 此 ， 表 4-1 所 丈 的 3 项 改进 全 部 成 
功 完成 。 这 一 路 简直 太 顺 利 了 。 

本 节 要 点 


装饰 器 设计 模式 用 于 在 对 象 上 附加 额外 的 职责 。 如 果 能 像 本 节 用 Ruby 模 块 做 到 的 那样 把 装饰 器 
动态 化 ， 你 将 可 以 大 大 提高 DSL 的 易 读 性 。 


不 过 ， 我 们 所 面 对 的 并 非 坦途 。 任 何 依赖 于 动态 元 编程 的 模式 都 有 你 必须 小 心 应 对 的 陷阱 。 请 特 
别 注 意 那些 可 能 给 日 后 造成 麻 颅 的 问题 ， 参 见 下 面 的 小 小 提醒 。 


品 


在 动态 类 型 语言 中 使 用 运行 时 元 编程 将 带 给 你 更 简洁 的 语法 、 更 具 表 现 力 的 领域 语言 ， 还 
有 动态 操控 类 结构 的 能 力 。 而 换取 这 些 好 处 的 代价 是 类 型 安全 和 运行 速度 两 方面 的 牺牲 。 强 调 
代价 并 不 意味 着 劝阻 你 运用 元 编程 技术 设计 DSL， 只 是 提醒 你 不 要 忘记 设计 抽象 的 过 程 始终 是 
一 个 权衡 利 次 的 过 程 。 在 基于 DSL 的 开发 活动 中 ， 难 免 有 时 静态 类 型 安全 的 重要 性 高 于 为 DSL 
用 户 提供 最 佳 表 达 手 段 的 需要 。 本 章 后 面 还 会 讨论 到 ， ba 站 ， 像 
Scala 这 样 的 语言 仍然 有 办 法 让 DSL 的 表现 力 不 输 于 Ruby 语 言 。 所 以 千 万 别 匆 忙 地 下 决定 ， 先 比 
较 一 下 所 有 可 能 的 方案 吧 。 
本 世 介 绍 了 如 何 利用 元 编程 来 实现 动态 的 装饰 器 。 其 实现 方式 与 Java、C# 等 静态 类 型 语言 差别 很 
大 表现 出 了 要 高 的 灵活 性 ， 最 重要 的 是 ， 我 们 见识 了 动态 装饰 器 用 于 实现 DSL 代 码 的 真实 案 
例 。 接 下 来 ， 我 们 继续 探索 反射 式 元 编程 技术 ， 把 另 一 种 常见 的 Java 设 计 模 式 活用 于 DSL 设 计 。 
4.2.3 利用 buider 的 反射 式 元 编程 
在 第 2 章 作 为 入 门 练习 3， 我们 实现 过 一 个 订单 处 理 DSL， 还 记得 吗 ? 当时 在 Java 版 本 的 实现 里 面 ， 
我 们 为 了 提高 DSL 对 于 用 户 的 表现 力 运用 了 Builder 设 计 模 式 (4.7 节 参考 文献 [1]) 。 下 面 是 从 2.1.2 
节 照 搬 过 来 的 一 段 代 码 ， 订 单 处 理 DSL 的 Java 实 现 使 用 起 来 是 这 样子 的 : 
Order 0 = 
new order.Builder() 
.buy(100, "IBM") 
.atLimitPrice(300) 
.allOrNone() 
.ValueAs(new OrderVvaluerImpl()) 
.build(); 
代码 中 运用 了 连贯 接口 这 种 常见 手法 去 构建 一 个 完整 的 0rder 对 象 。 只 是 由 于 Java 的 缘故 ， 整 个 
构建 过 程 是 静态 的 ，builder 提 供 的 所 有 构建 方法 全 部 只 能 静态 地 调用 。 如 果 借 助 Groovy 语 言 的 动 
态 元 编程 模式 ， 我 们 有 办 法 提高 builder 的 “ 极 简 ”程度 ， 同 时 又 不 削弱 其 表现 力 (4.7 市 文献 [2];， 关 
于 抽象 设计 "的 极 简 特质 ， 请 参阅 A.2 节 ) 。 这 样 用 户 不 用 写 那么 多 八股 代码 ， 得 出 来 的 DSL 比 较 
精干 而 且 更 易于 掌握 。 在 静态 方式 下 需要 堆砌 大 量 死板 代码 来 完成 的 事情 ， 语 言 运行 时 利用 反射 
就 做 到 了 〈 所 以 叫 反射 式 元 编程 ) 。 
是 Groovy 知 识 点 
。 Groovy 中 如 何 定 义 类 和 对 象 。 
。Groovy builder 允许 你 使 用 反射 建立 对 象 的 层次 结构 ， 其 语法 简练 ， 特 别 适合 运用 于 
DSL° 
1. Groovy builder 的 魔力 
代码 清单 4-7 对 运用 Groovy 对 Trade 对 象 进行 了 建 模 ， 从 中 可 以 看 出 它 的 基本 组 成 要 素 。 这 里 需要 
由 次 帝 明 ， 我 们 举例 所 用 的 Trade 抽象 因应 本 章 的 议题 作 了 大 幅度 的 简化 ， 不 可 以 和 真实 交易 系 
统 中 的 情况 相提并论 。 
代码 清单 4-7 ” ”Groovy 实现 的 Trade 抽象 


package domain.trade 


class Trade { 


St 


ring refNo 


Account account 


Instrument instrument 
List<Taxfee> taxfees = [] 


class Account { 
String no 
String name 
String type 


class Instrument { 
String isin 
String type 
String name 


class Taxfee { 
String taxId 
BigDecimal value 


这 是 一 个 平平 无 奇 的 Trade 抽象 ， 它 由 一 个 Account 对 象 、 一 个 Instrument 对 象 和 一 个 
Taxfee 对 象 列表 组 成 。 我 现在 要 介绍 一 段 builder 脚本 ， 它 能 神奇 地 探知 抽象 内 部 的 类 结构 ， 
用 你 提供 的 值 正确 构造 出 抽象 内 的 各 个 对 象 。 


代码 清单 4-8 ”作用 于 Trade 对 象 的 动态 builder， 用 Groovy 语 言 编写 


def builder = 
new ObjectGraphBuilder() 


builder .classNameResolver = "domain.trade" 
builder.classLoader = getClass().classLoader 


def trd = builder.trade( refNo: 'TRD-123') { @ 建立 builder 
account(no: 'ACC-123', name: 'Joe Doe', type: 'TRADING') 
instrument(isin: 'INS-123'，type: 'EQUITY'，name: 'IBM Stock')  @@ 动态 地 产生 方法 
3.times { 
taxfee(taxId: 'Tax ${it}', value: BigDecimal.valueof(100)) 


} 

assert trd != null 

assert trd.account.name == 'Joe Doe' 
assert trd.instrument.isin == 'INS-123' 
assert trd.taxfees.size == 3 


对 本 使 用 Java 语 言 的 开发 者 来 说 ， 上 面 的 代码 确实 有 点 神奇 。DSL 用 户 在 脚本 中 写 了 一 个 trd 
@ 方 法 ， 它 构造 了 一 个 创建 交易 对 象 的 builder。 在 trd 方法 里 面 ， 用 户 调用 account 、 
instrument @ 等 方法 ， ee 类 里 面 从 来 没有 定义 过 ， 就 好 像 语言 运行 时 把 它 
们 变 出 来 的 一 样 ， 代 码 居然 能 正确 执行 。 这 其 实 是 Groovy 元 编程 变 的 “小 戏法 ”。 


2. 揭 开 Groovy builder 的 秘密 
除了 元 编程 技术 参与 了 “戏法 ”， 命 名 参数 和 闭 包 也 < 出 了 很 大 力气 ”>， 才 让 代码 清单 4-8 中 的 DSL 脚 


本 表现 出 那样 奇妙 的 结果 。 前 面 各 章 的 例子 已 经 多 次 展示 过 闭 包 在 Groovy 语 言 中 的 用 法 。 现 在 我 
们 更 深入 一 点 ， 仔 细 看 看 语言 运行 时 是 怎样 探知 类 名 、 确 创 建 实例 ， 然 后 用 builder 获 得 的 数据 


充实 例 的 属性 的 。 要 点 参见 表 4-2。 
表 4-2 builder 与 元 编程 


站 


半 


th 


运行 时 的 作用 工作 原理 
匹配 方法 名 在 objectGraphBuilder 上 调用 任何 方法 ，Groovy 都 会 把 方法 名 通过 classNameResolver 策略 
人 进行 匹配 ， 匹 配 到 的 class 对 象 就 是 将 要 实例 化 的 类 
设置 classNameResolver 户 可 以 自 定义 classNameResolver 策略 ， 代 之 以 自己 的 实现 
ee G 得 到 class 对 象 之 后 ， 会 应 用 策略 NewInstanceResolver ， 调 标 类 的 无 参数 构造 
ol ee 
如 果 目 标 类 的 内 部 引用 了 别 的 类 ， 形 成 了 父子 关系 (如 代码 清单 4-8 中 的 `Trade* 和 
处 理 类 结构 和 层次 关系 `Account") ，builder 会 更 复杂 一 些 。 | 汪 的 情况 ，builder 会 应 用 RelationNameResolver 
、ChildPropertySetter 等 上 他 策略 去 确定 属性 所 属 的 类 ， 然 后 实例 化 它们 
如 果 想 进一步 了 解 Groovy builder 的 工作 细节 ， 请 参考 4.7 季 参考 文献 [2]。 
你 已经 看 了 不 少 元 编程 技术 ,对 于 怎样 用 它们 设计 具有 表现 力 的 DSL 有 了 相当 程度 的 了 解 。 现 在 
全 面 观 察 一 下 本 市 中 我 们 所 做 过 的 事情 ， 回 顾 图 4-2 中 我 们 目前 为 止 党 试 过 的 所 有 模式 。 这 些 模式 
就 是 你 今后 阅 荡 DSL 世 界 的 工具 了 。 
本 节 要 点 
builder 可 以 用 于 在 DSL 里 面 分 步 构造 对 象 。builder 被 动态 化 之 后 ， 大 幅 减 少 了 不 得 不 写 的 死板 


万 


代码 。 Groovy 或 Ruby 语 言 


中 的 动态 builder 通 过 语言 运行 时 的 元 对 象 协议 动态 地 构造 方法 ， 大 大 


缓解 了 DSL 实 现 方面 的 负 
4.2.4 经 验 总 结 : 元 编程 模式 
切 不 可 将 我 们 讨论 过 的 众多 模式 视 为 一 个 个 互 不 关联 的 实体 。 面 对 具体 领域 的 时 候 ， 你 会 发 现 每 
一 种 模式 在 应 用 之 后 ， 都 可 能 形成 需要 用 另 一 种 模式 去 化 解 的 作用 力 (4.7 节 参考 文献 [5]) "图 
4-6 简 要 回顾 ] 本 章 到 目前 为 止 实现 过 的 模式 。 图 4-6 将 图 4-2 列 举 的 DSL 模式 列 于 左 侧 ， 而 本 章 举 
例 讨论 过 的 具体 实现 方案 则 列 于 右 侧 。 

内 部 DSL 模 式 
v 灵巧 API => 连贯 接口 


v 反射 式 元 编程 


=> 隐 式 上 下 文 ， 通过 


stance_eval (Ruby) 
th Woow 


以 mixin 实 现 的 动态 装饰 器 


可 深入 对 象 层次 结构 的 动态 builder 


图 4-6 目前 为 止 介绍 过 的 内 部 DSL 模式 。 本 章 已 经 在 Ruby 和 Groovy 语 言 中 实现 了 这 些 模式 


我 们 讨论 的 几 个 模式 都 相当 重要 ， 实 现 内 部 DSL 的 时 候 你 会 常常 用 到 


强 元 编程 能 力 的 动态 类 型 语言 。 


介 


及 


绍 完 反 射 式 元 编程 ， 我 人 
下 实现 内 部 DSL。 当 你 月 


] 即 将 探讨 另 一 类 模式 ， 这 类 模式 将 用 了 
日 类 型 化 的 抽象 


| 。 这 些 模式 主要 针对 具备 较 


Ea 


的 静态 类 型 语言 


中 


F 在 像 Scala 那 和 
的 一 些 规则 可 以 


KE 建 模 DSL 元 素 时 ， 语 言 类 型 系统 


然 地 充当 起 领域 中 的 业务 规则 。 这 也 是 一 种 保持 DSL 简 练 同时 又 不 失 其 表现 力 的 途径 。 
本 节 要 点 


本 节 讨 论 的 模式 可 帮助 你 降低 DSL 的 烦琐 度 ， 提 高 动态 性 。 我 们 利用 语言 的 元 编程 能 力 在 运行 
时 完成 必要 的 工作 ， 以 此 取代 静态 方式 下 那些 死板 的 代码 。 


重要 的 不 仅 是 具 Ry 言 实 现 ， 你 需要 全 面 理解 塑造 了 这 些 实现 的 上 下 文 环 境 。 
有 些 强大 的 实现 语言 能 给 你 提供 丰富 的 手段 去 创作 动态 的 DSL。 


你 用 这 里 学 到 的 技巧 去 解决 实际 的 领域 建 模 问题 ， 从 而 对 本 题 有 了 更 深刻 的 体会 ， 你 将 会 给 
这 些 技巧 找到 更 多 的 用 武之 地 ， 也 会 创造 出 自己 的 解决 之 首 


4.3 内 奶 式 DSL: 类 型 化 抽象 模式 
今 为 止 ， 我 们 对 于 模式 的 探讨 全 都 离 不 开 精简 DSL 代 码 结构 这 个 主题 ， 而 且 从 使 用 和 实现 两 个 


本 市 暂时 把 动态 语言 放 到 一 边 ， 我 们 试 试看 能 否 利用 类 型 系统 的 威力 激发 DSL 的 表现 力 。 本 太 的 
示例 全 部 使 用 Scala 语 言 (以 Scala 2.8 为 准 。 我 们 重点 说 明 类 型 怎样 《甚至 在 程序 运行 之 前 ) 给 
DSL 的 一 致 性 增加 一 层 额外 保障 。 此 外 ， 类 型 在 使 DSL 语 言 精练 方面 的 能 力 不 输 于 我 们 先前 讨论 
的 一 些 动态 语言 。 多 看 看 图 4-2， 本 章 讨论 的 所 有 模式 都 在 那个 大 纲 里 面 。 


4.3.1 运用 高 阶 画 数 使 抽象 泛 化 
直 以 来 凡是 涉及 领域 的 讨论 ， 我 们 总 是 拿 金融 中 介 系 统 里 的 操作 来 举例 ， 如 维护 客户 账户 、 处 


es 


a 


理 交 易 和 成 交 、 代 客户 下 单 等 。 本 节 我 们 来 看 一 份 客 户 文件 ， 上 面 记录 了 中 介 在 工作 日 内 进行 的 
| 人 织 会 为 某 些 客户 生成 这 样 份 账户 每 日 交易 活动 报表 ， 然后 发 送 到 客户 的 
g 件 地 址 。 


1. 生成 一 份 分 组 报表 
图 4-7 是 一 份 账户 活动 报表 ， 里 面 记录 了 交易 的 票据 品种 、 


、 有 时 间 、 人 金额 。 


举 
| 


图 4-7 


很 多 


账户 名 称 ;， ~” 地 址 : 
2009 年 12 月 12 日 的 交易 活动 


票据 数量 时 间 金额 
Google 2000 08:20 
IBM 1200 11:30 
Google 350 11:45 
Verizon 350 12:10 
IBM 2100 12:20 
Google 1200 12:50 


经 过 简化 的 账户 活动 明细 报表 


昌 织 会 为 客户 提供 灵活 的 每 日 交易 情况 查看 方式 。 客 户 可 以 要 求 交易 情况 按 某 一 项 表格 元 素 


排序 或 者 分 组 。 比 如 ， 我 会 希望 一 天 内 所 有 的 交易 按照 票据 品种 排序 并 且 分 组 显示 ， 如 图 4-8 所 


不。 


图 4-8 


账户 名 称 : 一 地 址 : 
2009 年 12 月 12 日 的 交易 活动 : 
票据 数量 时 间 金额 
Google 2000 08:20 
1200 11:45 
350 12:50 
IBM 1200 11:30 | 
2100 12:20 
Verizon 350 12:10 


一 份 账户 活动 报表 ， 按 照 票据 品种 进行 了 排序 和 分 组 。 注 意 票 据 栏 的 排序 方式 ， 数 量 栏 将 


同一 种 票据 的 记录 排 在 了 一 起 
我 也 可 以 要 求 把 所 有 的 交易 按照 交易 数量 来 分 组 ， 如 图 4-9 所 示 。 


账户 名 称 : 一 地 址 ; 


2009 年 12 月 12 日 的 交易 活动 


数量 票据 时 间 金额 
350 Google 12:50 
Verizon 12:10 
1200 Google 11:45 
IBM 11:30 | oo 
2000 Google 08:20 
2100 IBM 12:20 


图 4-9 一 份 账户 交易 报表 ， 按 照 当 日 的 交易 数量 进行 了 排序 和 分 组 
现实 中 的 账户 活动 报表 还 会 有 其 他 很 多 内 容 ， 不 过 图 中 的 信息 已 经 足够 满足 下 面 的 实现 和 讨论 需 
要 了 。 我 们 现在 要 构建 一 种 DSL 来 实现 自 定义 的 分 组 函数 ， ES 
式 。 一 开始 ， 我 们 可 以 这 样 设计 DSL: 每 种 分 4 操作 分 别 用 一 个 函数 来 实现 。 然 后 ， 我 们 考 虚 设 
计 一 个 泛 化 的 groupBy 组 合子 一 一 即 一 个 以 分 组 条 件 为 参数 的 高 阶 画 数 来 改善 DSL 的 精炼 
度 [oe] 


定义 0 其 他 函数 作为 输入 的 高 阶 画 数 。 组 合子 可 以 被 组 织 起 来 构成 DSL 的 语言 结 
构 ， 本 大 以 及 第 6 章 都 有 这 方面 的 例子 。 附 录 A 也 详细 讨论 了 组 合子 。 


Scala 类 型 系统 可 以 保证 操作 的 静态 类 型 安全 ， 又 有 着 处 理 高 阶 函 数 的 能 力 ， 你 阅读 完 本 市 的 例 
子 ， 必 定 会 对 $cala 的 这 些 特点 深 有 体会 。 那 么 ， 我 们 就 直接 来 看 代码 示例 吧 。 


下 Scala 知 识 点 


。 case 类 定义 不 可 变 的 值 对 象 。 case 类 是 一 种 简洁 的 抽象 设计 手段 ， 可 以 用 于 自动 获得 编译 
器 提供 的 许多 额外 便利 。 


。 针 对 已 有 的 抽象 ， 隐 式 类 型 转换 提供 了 一 种 完全 非 侵 入 的 扩展 方式 。 
。 For-comprehensions 特性 针对 集合 上 的 迭代 子 提供 了 一 种 函数 式 抽象 。 
。 运 用 高 阶 画 数 ， 你 可 以 设计 和 组 织 起 能 力 强悍 的 函数 式 抽象 。 

2. 建立 基本 抽象 


我 们 来 试 一 下 从 后 往 前 推 的 方法 ， 先 设想 一 下 DSL 最 后 的 样子 ， 再 党 试用 Scala 实 现 出 来 。 用 户 将 
会 这 样 使 用 我 们 的 DSL: 


activityReport groupBy(_.instrument) 
activityReport groupBy(_.quantity) 


一 行 DSL 代 码 生成 一 份 按 票 据 品 种 分 组 的 活动 报表 ， 第 一 行 代码 生成 的 报表 则 按 交 易 数 量 分 
组 。 下 面 的 代码 片段 实现 了 账户 活动 报表 的 基本 抽象 ， 我 们 来 仔细 看 看 它 具备 的 一 些 特性 。 


type Instrument = String @ 具体 类 型 定义 


下 


case class TradedQuantity(instrument: Instrument，quantity: Int)  @ 值 对 象 


implicit def tuple2ToLineItem(t: (Instrument, Int)) = 


TradedQuantity(t._1, t._ 2) 四 Tuple2 到 LineItem 的 隐 式 类 型 转换 
case class ActivityReport(account: String, 

quantities: List[TradedQuantity]) { @ 主体 抽象 

pe 


本 书 不 是 一 本 Scala 专 著 ， 但 为 了 帮助 读者 理解 本 书 ， 我 将 重点 说 明 这 段 代码 展现 出 来 的 一 些 语言 
特性 。 这 样 一 来 ， 你 可 以 把 它 和 等 价 的 Java 代 码 相 比较 ， 从 而 对 它 的 表现 力 水 平 有 一 些 直 观 的 认 


识 。 


实现 DSL 随 时 都 要 注意 对 表现 力 的 要 求 。 避免 直 
接 套 用 高 义 含糊 的 原生 数据 类 型 ， 让 代码 直接 说 明 自身 的 含义 。 这 样 不 但 利于 领域 用 户 的 理解 ， 
还 给 Instrument 类 型 留 下 了 日 后 修改 的 余地 。 


TradedQuantity @ 是 个 case 类 ， 它 建 模 了 一 个 值 对 象 。 值 对 象 一 般 被 认为 是 不 可 变 的 ， 选 用 
Scala 的 case 类 作为 表达 手段 正 是 用 其 所 长 。case 类 的 特点 是 数据 成 员 自动 具备 不 可 变性 质 ， 拥 有 
特别 简便 的 内 建构 造 器 语法 ， 而 且 默 认 实现 了 equals 、hashcode 和 toString 方法 。 (Scala 
语言 的 case 类 特别 适合 用 于 建 模 值 对 象 。 详 细 介 绍 请 参阅 4.7 节 文献 [4]。) 


Scala 语 言 通过 隐 式 声明 人 @ 提 供 数 据 类 型 之 间 的 自动 转换 。Scala 的 隐 式 特性 是 一 种 限定 了 词法 作用 
域 的 语言 结 构 ， 也 就 是 说 ， 只 有 当 一 个 模块 明确 导入 了 隐 式 定义 ， 类 型 转换 才 在 该 模块 范围 内 生 
效 。 在 本 例 中 ， 按 照 声 明 ， 二 元 组 (Instrument，Int) 可 被 这 种 声明 隐 式 转换 成 一 个 
TradedQuantity 对 象 。Scala 人 允许 用 (Instrument，Int) 这 种 字面 写法 来 表示 二 元 组 ， 它 的 
完整 写法 是 Tuple2[Instrument，Int] 。 《前 面 3.2.2 节 讨论 过 Scala 语 言 imp1Licits 特性 的 
工作 原理 ， 如 有 需要 可 以 翻 回去 温习 一 下 。) 


最 后 说 到 账户 活动 报表 的 主体 抽象 。 ActivityReport @ 包 含 账户 信息 和 当日 所 有 交易 活动 的 
个 列表 ， 列 表 元 素 是 交易 数量 和 交易 品种 组 成 的 二 元 组 


接 下 来 我 们 就 要 展开 一 系列 枕 代 式 的 建 模 过 程 ， 实 现 分 组 函数 ， 满 足 客户 目 定 义 每 日 交易 报表 显 
示 方 式 的 需要 。 我 们 打算 用 迭代 式 的 过 程 逐步 改进 模型 ， 见 表 4-3。 


表 4-3 ”对 D5L 的 迭代 式 改进 


创造 一 种 DSL 供 用 户 查 看 交易 活动 报表 ， 该 语言 有 按照 每 种 分 组 条 件 各 实现 一 个 专门 的 分 组 函数 ， 


: 进行 分 组 的 功能 groupByInstrument 和 groupByQuantity 
Instrument 和 Quantity 进行 分 组 的 功能 实现 泛 型 分 组 函数 groupBy[T ， 以 减少 重复 性 能 


那么 ， 我 们 先 来 实现 几 个 groupBy 函数 。 
3. 第 一 步 : 专用 实现 


如 果 我 们 在 ActivityReport 抽象 内 按 分 组 条 件 提供 专用 的 groupBy 范 数 ，DSL 用 户 得 到 的 API 
表现 力 会 很 好 。 不 过 我 们 还 要 从 实现 的 角度 去 考虑 ， 使 用 方面 的 表现 力 并 非 判 定 DSL 完 善 程度 的 


唯一 标准 。 代 码 清 单 4-9 给 出 了 按照 Instrument 和 Quantity 分 组 的 专用 实现 。 注 意 每 种 分 组 条 
件 都 需要 单独 定义 一 个 专用 函数 。 


代码 清单 4-9 ”活动 报表 ，groupBy 画 数 采 取 专 用 实现 


type Instrument = String 
case class TradedQuantity(instrument: Instrument, quantity: Int) 


implicit def tuple2ToLineItem(t: (Instrument, Int)) = 
TradedQuantity(t._1, t._2) 


case class ActivityReport(account: String, 
duantities: List[TradedQuantity]) { 
import scala.collection.mutable._ 


def groupByInstrument = { 
val m = 
new HashMap[Instrument, Set[TradedQuantity]] 
with MultiMap[Instrument，TradedQuantity] @ 用 mixin 方 式 定 义 MultiMap 


for(q <- quantities) 
m addBinding (q.instrument, q) @ for comprehension 


m,.keys.toList 
.Sortwith(_ < _) 


.map(m.andThen(_.toList)) 和 @ 按 票据 品种 分 组 
} 
def groupByQuantity = { 
val m = 
new HashMap[Int, Set[TradedQuantity]] 
with MultiMap[Int, TradedQuantity] 
for(q <- quantities) 
m addBinding (gq.quantity, 9q) 
m.keys.toList 
.Sortwith(_ < 
.map(m. andThen(_. toList)) 
} 


你 能 看 出 这 种 实现 方案 的 缺点 吗 ? 让 我 们 先 简单 看 下 代码 中 用 到 的 一 些 Scala 惯 用 法 ， 然 后 再 作 进 
一 步 的 分 析 。 


在 代码 清单 4-9 的 ActivityReport 实现 里 面 ，quantities 可 以 含有 对 应 同一 个 Instrument 
对 象 的 多 个 条 目 ， 所 以 我 们 定义 一 个 MultiMap 容器 @ 来 归 置 从 quantities 取出 的 条 目 ， 定 义 
MultiMap 容器 用 到 Scala 的 mixin 语 法 。 在 HashMap 对 象 上 我 们 混入 trait MultiMap ， 就 得 到 
MultiMap 的 具体 实例 。 关 于 Scala 语 言 中 trait 和 mixin 特 性 的 详细 解释 ， 请 参阅 4.7 节 文献 [4] 。 


be 


在 遍 0 i 充 HashMap 的 时 候 ， 我 们 运用 了 Scala 语 言 的 for comprehension 特 : 
e 。 它 和 命令 式 语言 中 的 for 循环 有 明显 区 别 〈6.9 节 谈 及 Scala 语 言 的 Monad 化 结构 的 时 候 ， 我 
再 详细 讨论 for eh or 。 然后， 我 们 对 MulLtiMap 的 键 进行 排序 并 建立 一 个 按 
Instrument 分 组 的 List 四。 该 List 的 每 个 元 素 都 是 一 个 Set 容器 ， 里 面 存 放 了 某 票 据 品 种 对 
应 的 全 部 交 数量 条 目 。 代 码 中 下 划 线 的 语法 含义 与 3.2.2 节 介绍 的 相同 


代码 清单 4-9 中 实现 的 主要 缺点 是 代码 重复 部 4 分 较 多 。 groupByInstrument 和 
groupByQuantity 函数 在 结构 上 完全 相同 ， 只 ?作为 分 组 依据 的 属性 不 一 样 。 你 应 该 马上 就 警 
觉 到 ， 这 种 情形 违反 了 优秀 抽象 的 设计 原则 。 万 一 你 还 没有 认识 到 其 中 的 缺点 ， 请 翻阅 附录 A， 


> 
FT 


O 


那里 介绍 了 如 何 对 抽象 进行 精炼 以 所 除非 本 质 复杂 性 。 总 之 ， 专 用 实现 会 助长 重复 性 代码 ， 这 就 
是 问题 的 症结 。 而 且 ， 如 果 日 后 向 ActivityReport 类 增加 更 多 分 组 条 件 ， 那 些 刻 板 代码 只 会 一 
再 重复 出 现 。 怎 样 才 能 纠正 当前 实现 的 缺点 呢 ? 我 们 需要 更 一 般 化 的 实现 方案 。 

4. 一 般 化 的 实现 


我 们 现在 就 把 实现 推广 到 更 一 般 化 的 情况 ， 将 原来 分 立 的 一 系列 专用 方法 概括 成 一 个 通用 的 方 


法 。 


代码 清单 4-10 ” 泛 型 groupBy 实现 
type Instrument = String 


case class TradedQuantity(instrument: Instrument, quantity: Int) 


implicit def tuple2ToLineItem(t: (Instrument, Int)) = 
TradedQuantity(t._1, t._2) 


case class ActivityReport(account: String, 
guantities: List[TradedQuantity]) { 
import scala.collection.mutable._ 


def 人 <% Ordered[T]](f: TradedQuantity => T) = { @ 把 分 组 条 件 参数 化 
val m = 
new HashMap[T, Set[TradedQuantity]] 
with MultiMap[T, TradedQuantity] 
for(q <- quantities) 
m addBinding (f(q), 9q) 
m.keys.toList.sort(_ < _).map(m.andThen(_.toList)) 


} 


新 的 实现 明显 更 简短 。 你 有 没有 发 现 ， 泛 型 groupBy @ 方 法 产 
公 度 也 在 同步 上 升 。 表 4.4 简 要 总 结 如 何 实现 型 9rvupBy 方法 。 


表 4-4 ”实现 泛 型 groupBy 方法 


步骤 说 明 


将 groupBy 方法 参数 化 ， 带 上 对 活动 报表 分 组 所 依据 的 类 型 

groupBy 方法 接受 f 画 数 作为 输入 参数 ，f 对 分 组 条 件 建 模 。 这 里 体现 Scala 对 高 阶 画 数 
实现 泛 型 groupBy 方法 的 支持 。 画 数 可 以 像 其 他 数据 类 型 一 样 被 当做 参数 和 返回 类 型 传 来 传 去 。 对 分 组 条 件 进行 
抽象 的 时 候 可 以 利用 这 个 特点 ， 代 替代 码 清单 4-9 中 的 实现 
图 4-10 可 以 帮助 你 理解 泛 型 groupBy 函数 的 执行 过 程 和 原理 


了 力 的 抽象 ， 同 时 代码 的 紧 


让 
se 
卉 

让 


下 鸡 我 们 来 观察 DSL 用 户 调用 groupBy 的 过 程 ， 把 实现 步 台 从 头 到 尾 过 一 裔 。 这 样 的 练习 可 以 帮 
助 你 理解 Scala 的 类 型 系统 是 怎样 在 背后 发 挥 作 用 ， 默 默 塑造 出 富 于 表现 力 的 DSL 语 言 结 构 的 。 


探究 现象 背后 的 来 龙 去 脉 是 DSL 设 计 工 作 的 重要 一 环 ，DSL 的 实现 者 尤其 应 该 全 面 、 细 致 地 掌握 
相关 知识 。 读 者 有 必要 反复 阅读 本 世 ， 直 到 完全 理解 Scala 语 言 如 何 进行 方法 分 发 。 代 码 清 单 4-10 
' 短 短 15 行 的 实现 代码 里 面 隐藏 了 相当 数量 的 惯用 法 ， 直 得 你 好 好 学 习 。 当 你 能 够 看 清 各 种 惯用 


人 知道 怎样 将 它们 自 合 在 一 起 满足 API 的 契约 ， 这 些 惯 用 法 就 会 成 为 你 手中 


val activityReport = 
ActivityReport("john doe", 
List(("IBM", 1200), ("GOOGLE ", 2000), ("GOOGLE", 350), 
("VERIZON", 350), ("IBM", 2100), ("GOOGLE", 1200))) 


println(activityReport groupBy(_ .instrument )) 
println(activityReport groupBy(_.quantity)) 


与 其 用 文字 说 明 上 面 的 代码 ， 我 们 不 如 用 图 4-10 来 解释 activityReport 
groupBy(_.instrument ) 调用 前 后 发 生 的 一 系列 动作 。 


List( ("IBM", 1000), ("DELL", 3000), ... ) 
这 一 步调 用 得 到 的 票据 
。，、 ，。，，:， 5 上 凯 种 ,随后 将 其 作为 适 
各 在 隐 式 转换 定义 aef tuple2T ee em 的 ” 加 入 HashMap 用 于 分 组 
作用 下 ， 元 组 被 转换 成 Ti eQuant if+y 类 型 
List[Tradedouantity] 0 
© 
(27 ActivityReport 一 ”grOUPBY ( _.instrument) 
"john doe” [3 【5] 
a 
i 的 占 位 符 语 法 。f 的 函数 原型 (代码 清单 ”由 于 类 型 系统 推断 下 划 线 (_) 代表 的 
4-10) 说 明 该 占 位 符 是 TradeQuantity 类 型 是 一 个 Tr tity 对 象 ， 所 以 可 
以 对 它 调 用 instrument 方法 


图 4-10” 按 票据 品种 分 组 的 活动 报表 (groupBy(_.instrument) ) 的 产生 过 程 。 顺 序 观察 图 
中 所 有 步骤 ， 将 图 解 与 代码 清单 4-10 的 DSL 实 现 ， 以 及 上 文 运用 DSL 为 客户 john doe 生 成 
ActivityReport 的 代码 片段 相对 照 


高 阶 画 数 的 应 用 场合 远 不 止 本 忆 所 介绍 的 类 型 化 抽象 模式 。 所 有 现代 语言 ， 无 论 是 否 静态 类 型 的 
语言 ， 全 都 文 持 高 阶 画 数 和 闭 包 。 本 节 讨 论 的 模式 实现 可 以 套用 到 不 同 的 情形 和 语言 中 去 。 实 践 
者 要 留心 使 用 模式 的 上 下 文 环 境 ， 善 用 实现 语言 的 特点 把 事情 做 好 。 


我 们 的 目标 是 跨越 实现 语言 的 界限 ， 探 索 JVM 平 台 上 所 有 的 内 部 DSL 实 现 模式 。 无 论 你 选 提 
类 型 还 是 动态 类 型 的 实现 语言 ， 总 之 应 该 根据 DSL 建 模 所 需 的 能 力 去 挑选 合适 的 工具 。 


t 
mt 


Ee 


下 一 节 将 讨论 怎样 运用 显 式 类 型 约束 来 表达 领域 昌 强 和 行为 。 这 种 表达 手段 不 适用 于 动态 类 型 谨 
言 。 不 过 只 要 类 型 系统 表现 力 充沛 ， 显 式 类 型 约束 可 以 成 为 得 力 的 建 模 工具 。 它 对 于 使 DSL 语 言 
简洁 有 着 惊人 的 效果 。 


4.3.2 运用 显 式 类 型 约束 建 模 领域 逻辑 


设计 领域 模型 的 时 候 ， 抽 象 必须 遵照 领域 所 施 予 的 规则 和 约束 去 实现 其 行为 。 Ruby、Groovy 等 动 
态 类 型 语 言 将 领域 规则 表达 为 运行 时 的 约束 。4. 2 已 经 演 i 示 过 Ruby 和 Groovy 语 言 的 反射 式 元 编程 
手法 ， 讲 解 过 怎样 实现 一 些 DSL 语 言 结构 来 建立 领域 规则 的 模型 。 本 节 将 首先 用 Ruby 语 言 实现 一 
个 运行 时 验证 示例 ， 然 后 演示 如 何 借助 Scala 语 言 的 静态 类 型 系统 更 简洁 地 表达 类 似 约束 。 


1. Ruby 语 言 的 运行 时 验证 


我 们 继续 沿用 代码 清单 4-6 中 的 Trade 抽象 这 个 例子 ， 先 前 已 经 用 Ruby 语 言 建立 一 个 简单 的 领域 

模型 。Trade 对 象 需要 对 应 一 个 Account 对 象 ， 即 客户 的 交易 账户 。 代 码 清单 4-6 把 账户 对 象 表 
示 为 类 方法 attr -accessor 。 交 易 系统 的 领域 概念 里 存在 很 多 不 同类 型 的 账户 (多 3 22 节 的 
补充 内 容 * 金 融 中 介 系 统 : 客户 账户 。 对 于 Trade 抽象 来 说 ， 这 个 账户 被 限定 为 交易 账户 ， 结 
算账 户 不 可 以 用 在 这 个 地 方 。 那 么 ， 我 们 每 次 建立 Trade 对 象 并 为 它 设 置 Account 对 象 的 时 


候 ， 都 必须 验证 这 条 领域 规则 。 用 Ruby 语 言 应 该 怎么 写 呢 ? 你 可 以 像 下 面 的 代码 片段 一 样 插入 常 
用 的 检查 语句 : 


class Trade 
attr_accessor :ref_no，:account，:instrument，:principal 


def initialize(ref, acc, ins, prin) 
@ref_no = ref 
raise ArgumentError .new(" 必 须 为 交易 账户 ") 
unless trading?(acc) 
@account = acc 
## ... 


凡是 领域 模型 中 要 求 接受 交易 账户 的 地 方 ， 你 都 要 在 运行 时 反复 执行 同样 的 验证 。 (我 们 可 以 采 
取 类 似 Rails 的 做 法 ， 把 验证 操作 写成 类 方法 ， 实 现 声 明 式 的 验证 ， 但 验证 操作 终究 还 是 在 运行 时 
进行 的 。) 而 且 每 一 处 验证 都 必须 明确 地 进行 单元 测试 ， 确 认 当 输入 非 交 易 账 户 的 时 候 领域 行为 
如 同 预期 的 一 样 中 止 执行 。 以 上 重重 防范 必然 要 增加 代码 量 ， 但 如 果 语 言 多 许 显 式 规定 类 型 化 的 
约束 条 件 ， 我 们 就 可 以 节省 这 部 分 代码 。 


在 静态 类 型 语言 i 以 把 约束 条 s 什 用 类 型 的 万 式 规定 出 来， 让 它们 在 编译 时 接受 编译 器 的 
检查 。 如 果 一 个 程序 能 正确 编译 ， 那 就 说 明 模 型 中 领域 行为 的 一 致 性 至 少 有 了 一 重 保证 。 


2. Scala 语 言 的 显 式 类 型 约束 
我 们 尝试 用 Scala 语 言 建 模 Trade 对 象 ， 对 其 中 的 账户 和 票据 加 上 一 些 具 有 领域 含义 的 约束 条 件 。 
经 过 本 例 的 练习 ， 你 将 认识 到 在 显 式 类 型 约束 的 作用 下 ，DSL 抽 象 元 需 实际 运行 就 已 经 得 到 了 
层 额 外 的 一 致 性 保证 ， 而 这 是 动态 类 型 语言 所 不 具备 的 。 假 如 你 选择 静态 类 型 语言 作为 实现 语 
言 ， 那 么 显 式 类 型 约束 绝对 是 不 可 或 缺 的 一 样 工具 。 

下 Scala 知 识 点 


。 基于 类 型 的 编程 方法 。 以 类 型 为 手段 ， 在 DSL 中 表达 领域 约束 。 泛 型 类 型 参数 和 抽象 类 型 
都 是 你 的 好 帮手 。 


。 抽象 的 val 成 员 可 使 抽象 在 进入 最 后 的 实例 化 阶段 之 前 保持 开放 。 


每 个 Trade 对 象 都 对 应 一 个 Trading 账户 。 我 们 用 Scala 语 言 对 这 条 规则 进行 建 模 。 代 码 清 单 4-11 
只 展示 了 Trade 对 象 中 与 本 段 讨 论 相 关 的 一 个 侧面 。 


代码 清单 4-11 ” 带 上 类 型 化 约束 的 Trade 对 象 ，Scala 语 言 


几 


1 sx 


trait Account 
trait Trading extends Account 


trait Settlement extends Account @ 两 种 Account 类 型 
trait Trade { 
type A <: Trading @ Trading 子 类 型 的 账户 
val account: A 四 Account 实 例 


def valueOof: Unit 


从 这 个 示例 中 我 们 可 看 出 类 型 如 何 隐 式 落实 业务 规则 。 这 段 代码 用 了 Scala 语 言 的 trait 特 性 建 模 
Account 和 Trade 对 象 (参见 4.7 节 文献 [4]) 。 我 们 为 Trading 账户 和 Settlement 账户 各 安 


卫 这 条 规则 ， 要 求 Trading 账 
有 一 些 业务 规则 是 在 代码 中 明确 规定 的 。 我 们 在 Trade 的 定义 


Trading ) @， 因 此 不 能 ey 


要 男 外 增加 验证 账户 类 型 的 代码 ， 这 条 规则 的 检验 工作 


户 的 相关 业务 规则 


` 需 要 特别 去 检测 账户 类 型 是 否 


4 种 类 型 @。 程 序 员 不 可 以 向 要 求 Trading 账户 的 方法 传递 Settlement 账户 。 编 译 器 会 捍 


符合 要 求 。 


有 对 抽象 类 型 A 设置 了 约 有 


(<: 


之 外 的 任何 账户 类 型 来 实例 化 Trade 对 象 @。 用 户 不 需 


司 样 


编译 器 代劳 。 


了 99 


“ 父 马 


是 指 参 与 票 


补充 内 容 。 根据 交 


(equity trade) 涉及 股票 与 现金 的 交换 。 
收益 交易 (fixed income trade) 。 关 于 股权 、 固 定 收 


容 。 


的 票据 种 类 的 不 同 ， 


交易 的 行为 、 


买卖 双方 之 间 订 立 的 合约 。 如 果 想 复习 交易 的 一 些 性 质 ， 请 回头 翻阅 1.4 节 的 


下 期 过 程 和 计算 方法 都 有 差异 。 股 权 交 易 


[号 金融 中 介 系统 ， 票 据 类 型 


票据 的 类 型 可 说 


而 当 被 交换 的 票据 属于 固定 收益 类 型 ， 我 们 称 之 为 固定 


同 ， 票 据 的 交易 


票据 主要 分 为 股 
股权 类 票据 又 可 


` 结算 过 程 的 生命 周期 也 不 同 。 


权 (equity) 和 固定 收益 


进一步 分 为 普通 股 、 优 先 股 、 


称 债券 ) 包括 
方 画 的 详细 内 容 ， 


下 画 
型 。 


代码 清单 4-12 


I 


代码 将 Trade 抽象 的 定义 进 


Im. 


接 债 券 、 零 息 侨 券 、 浮 动 利 率 贷 券 。 


益 等 票据 类 型 的 详情 ,i 


就 我 们 的 讨论 而 言 ， 


我 们 只 要 记 住 当 交 易 的 票 


EquityTrade 和 FixedIncomeTrade 模型 


步 具 化 


N= -3 


(fixed income) 两 大 类 。 
累积 股 、 权 证 


阅读 本 节 的 补充 内 


是 五 花 八 门 ， 而 它们 都 是 为 了 迎合 投资 者 和 发 行者 的 需要 而 设计 的 。 类 型 不 


` 存 托 任 证。 固定 收益 类 证 券 (又 


并 无 必要 全 面 了 解 这 
日 类 型 不 同 ， 对 应 的 Trade 抽象 也 不 一 样 即 可 。 


， 建 立 EquityTrade 和 FixedIncomeTrade 的 模 


trait Instrument 
trait FixedIncome 


trait EquityTrade 


trait Stock extends Instrument 


extends Instrument 


extends Trade { 


type S <: Stock @ EquityTrade 作 用 于 Stock 
val equity: S @ 票据 类 型 
def valueof 区 
/Ais 四 交易 计 值 的 具体 实现 
上 
} 
trait FixedIncomeTrade extends Trade { 
type FI <: FixedIncome @ FixedIncomeTrade 作 用 于 FixedIncome 
val fi: FI 加 票据 类 型 
def Valueof { 
A @ 交易 计 值 的 具体 实现 
} 
} 
代码 中 对 所 交易 票据 的 类 型 进行 了 约束 ， 类 似 于 代码 清单 4-11 中 对 Account 所 做 的 显 式 约束 。 此 


业务 规则 照旧 由 编 证 


译 器 隐 式 地 强制 实施 。 


我 们 分 别 规定 了 EquityTrade 类 型 @ 和 FixedIncomeTrade 类 型 @ 。 程序 员 不 可 以 把 


FixedIncomeTrade 对 象 传递 给 要 求 EquityTrade 对 象 的 方法 。 编 译 器 会 指 


和 


体 的 Trade 类 型 有 所 要 求 的 业务 规则 不 需要 特别 去 检测 交易 类 型 是 


否 符合 要 求 。 


EquityTrade 负责 处 理 Stock 交易 @，FixedIncomeTrade 负责 FixedIncome 交易 @@。 
据 此 分 别 对 抽象 val (equity @ 和 fi @) 进行 了 约束 。 以 上 基本 业务 规则 完全 


到 保证 ， 程序 员 需 编写 一 行 验 证 代码 。 


象 ， 也 分 别 对 应 着 不 同 的 valueof 方法 实现 (四 和 @) 。 


value0f 方法 是 多 态 的 、 类 型 化 的 。 不 同 的 Account 和 Instrument 类 


我 们 运用 类 型 化 抽象 手段 ， 并 且 对 值 和 类 型 施加 显 式 约束 ， 在 没有 写 
功 描 述 了 相当 数量 的 领域 行为 。 不 仪 代码 规模 缩小 了 ， 单 元 测试 的 数量 也 减少 了 ， 直 接 降低 了 编 


行 过 程式 逻辑 


卫 此 规则 ， 


对 具 


我 们 
层面 得 


型 对 应 着 不 同 的 Trade 


的 情况 下 成 


写 和 维护 的 负担 。 当 你 维护 代码 的 时 候 ， 如 果 类 型 标注 能 描述 性 地 说 明 模型 背后 的 领域 含义 ， 那 


么 维护 工作 不 是 会 顺利 得 多 吗 ? 


对 比 之 前 关于 用 动态 语言 实现 DSL 的 讨论 ， 本 节 讨 论 中 体现 出 来 的 实现 ) 


总 结 一 下 什么 是 静态 类 型 思维 ， 看 它 和 Ruby 或 Groovy 的 思维 方式 有 何 区 别 。 


4.3.3 经 验 总 结 : 类 型 思维 


经 过 本 闻 的 学 习 ， 你 已 经 知道 对 于 设计 表现 力 丰 富 的 领域 抽象 ， 类 型 可 以 起 到 很 


于 拥有 静态 类 型 检查 这 张 安 全 网 ， 静 态 类 型 的 实现 天 生 就 具备 一 层 1 


FE 确 性 保障 ， 


要 的 作用 


引路 很 不 一 样 。 现 在 我 们 


六 


的 Groovy 和 Ruby 示 例 的 3 主要 区 别 。 类 型 七 的 代码 只 要 能 通过 编译 ， 


就 足 侨 证 明 它 满 


的 领域 约束 。 在 第 6 章 用 Scala 设 计 更 多 DSL 的 时 候 ， 我 们 会 继续 讨论 这 个 议题 。 


介绍 过 的 几 种 内 部 DSL 模 式 。 


内 部 DSL 模 式 


w 类 型 化 内 骨 => 


。 限制 了 词法 作用 域 的 隐 式 转换 


。 显 式 类 型 约束 


图 4- 


中 了 本 


11 总 结 


这 就 是 它 与 前 面 
日 当 数 量 


了 本 


人 


四 局 


图 4-11 类 型 化 内 幅 方 式 下 用 于 内 部 DSL 的 程序 结构 。 你 可 以 从 这 些 模式 中 学 会 运用 类 型 思维 去 


声 驭 编程 语言 


我 们 讨论 了 运用 静态 类 型 语言 实现 内 部 DSL 的 过 程 中 常会 使 用 的 若 


言 言 没有 动态 语言 言 那样 的 元 编程 绝技 ， 但 类 型 化 抽象 同样 是 非常 简 放 
本 节 要 点 


有 力 的 DSL 天 


发 手 


F 段 。 


重要 模式 。 虽 然 静态 类 型 语 


本 节 的 主要 目的 是 引导 你 用 类 型 思考 。 对 于 领域 模型 中 的 每 个 抽象 ， 你 应 该 把 它 类 型 化 ， 然 后 
围绕 类 型 组 织 相 关 的 业务 规则 。 很 多 业务 规则 会 自动 被 编译 器 强制 实施 ， 因 此 你 不 需要 专门 为 
a 如 果实 现 语言 拥有 合适 的 类 型 系统 ， 那 么 DSL 的 简洁 程度 不 会 亚 于 动态 语言 的 实 
现 。 


二 


到 目前 为 止 ， 我 们 介绍 了 不 少 内 部 DSL 实 现 模式 ， 有 利用 类 型 系统 抽象 出 领域 规则 的 ， 也 有 利用 
答 主 语言 的 元 编程 能 力 做 反射 的 。 下 一 广 将 要 介绍 的 模式 能 让 语言 运行 时 帮 你 编写 代码 。 你 要 用 
生成 的 代码 来 创作 简洁 的 DSL 。 


4.4 生成 式 DSL: 通过 模板 进行 运行 时 代码 生成 


元 编程 有 许多 侧面 ， 例 如 上 文 展示 过 不 少 反 射 式 元 编程 的 例子 。VM 在 运行 时 对 各 种 元 对 象 进行 控 
测 ， 找 出 当前 上 下 文 内 可 用 的 对 象 ， 然 后 神奇 地 调用 它们 。 我 们 还 可 以 从 不 同 的 角度 来 看 待 元 编 
程 。 其 实 ， 元 编程 最 经 典 的 定义 是 : 编写 “编写 代码 ”的 代码 。 


在 不 同 的 语言 里 ， 这 个 定义 的 确切 含义 也 不 一 样 。Lisp 等 语言 提供 编译 时 元 编程 能 力 ， 我 们 在 
2.5.2 节 已 经 见识 过 。Ruby、Groovy 等 语言 提供 运行 时 元 编程 能 力 ， 可 以 在 运行 时 通过 eval 和 方 
法 的 动态 分 发 生成 代码 。 本 节 将 用 一 个 县 体 的 例子 向 尔 展示 如 何 减 少 直接 编写 的 代码 ， 转 而 依靠 
或 余 下 的 部 分 ， 以 此 达到 使 DSL 抽 象 表 面 紧凑 的 目的 。 你 可 能 会 问 ， 这 种 做 法 为 什 
么 很 有 意义 


4.4.1 生成 式 DSL 的 工作 原理 


设计 生成 式 的 DSL 可 以 少 写 死板 重复 的 代码 。 语 言 将 通过 元 编程 手段 代替 你 生成 代码 。 图 4-12 
象 地 说 明了 运行 时 元 编程 生成 代码 的 情况 。 


ll 


NS 


<= 开发 环境 


元 对 象 生 成 各 种 
运行 时 元 件 材料 
运行 时 环境 => 


- 


要 四 加 


图 4-12 运行 时 元 编程 方法 在 运行 时 根据 元 对 象 产生 代码 。 元 对 象 生成 更 多 对 象 ， 结 果 是 减少 了 
死板 代码 的 数量 


程序 员 除 了 直接 编写 一 部 分 对 象 ， 还 操控 元 对 象 在 程序 运行 的 时 候 产生 更 多 的 程序 元 件 。 这 些 生 
成 的 元 件 材 料 就 相当 于 语 全 运行 里 帮 你 编 委 光 代 旬 4 这 就 好 比 你 为 了 让 上 自己 集中 精力 对 付 更 重要 
的 工 作 而 精明 地 指使 助手 ， 让 他 按照 你 的 指令 照顾 好 所 有 的 例 行 工作 。 那 么 元 对 象 具 体 是 什么 样 
Ee 它们 怎样 完成 你 的 要 求 ? 我 们 一 起 用 Ruby 语 言 设计 一 些 生成 式 DSL， 边 做 
边 解 释 


4.4.2 利用 Ruby 元 编程 实现 简洁 的 D 


SL 设计 


关于 证 券 交 易 和 结算 领域 ， 本 章 已 经 围绕 “交易 ” 谈 了 不 少 内 容 。 在 现实 的 应 


一 个 非常 复杂 的 模块 ， 含 有 大 量 的 领域 对 象 和 相关 的 业务 规则 、 约 束 条 件 、 
验证 逻辑 是 通用 的 ， 适 用 于 同一 上 下 文 内 的 所 
下 文 ， 需 要 在 类 定义 中 明确 地 写 出 来 。 但 不 管 哪 一 种 验证 


程序 中 ，Trade 是 


以 集中 在 一 起 ， 也 可 以 通过 合适 的 技术 手段 统一 生成 。 


我 们 来 看 看 Ruby 元 编程 在 这 方面 有 什么 
1. 用 类 方法 对 验证 逻辑 进行 抽象 


假设 你 正在 用 Rails 开 发 交易 程序 ， 其 中 
Trade 模型 中 会 出 现 这 样 的 代码 片段 : 


办 法 。 


有 相似 属性 ， 


验证 逻辑 。 其 中 一 些 


而 另外 一 些 验证 逻辑 专用 于 特定 的 上 
其 一 般 的 执行 过 程 是 相同 的 可 


逻辑 ， 


了 ActiveRecord 进行 持久 化 。 那 么 按照 一 般 惯 例 ， 


class Trade < ActiveRecord: :Base 


Validates_presence_of :account, 
validates_uniqueness_of:ref_no 


## ... 


has_one :ref_no 
has_one :account 
has_one :instrument 
has_one :currency 
has_many :tax_fees 
## ，,， 


:ijnstrument, 


:Currency 


如 果 你 有 过 开发 Rails 项 目的 经 验 ， 肯 定 


(validates_presence_of 和 validates_ 


定 知道 上 面 类 定义 中 最 后 两 行 的 作用 
uniqueness_of ) 封装 了 一 些 针 对 属性 的 验证 


。 这 两 个 Ruby 类 方法 


逻辑 ， 设 置 属性 的 时 候 ， 传 进去 的 参数 要 经 过 它们 的 检查 。 注 意 看 那些 作用 


它们 被 干净 利落 地 从 公开 的 API 界 面 上 剥离 出 来 ， 逢 
设计 的 精炼 原则 ， 请 翻阅 附录 A.3。 在 运行 时 ， 这 些 方法 会 生成 相应 的 代码 片段 去 验证 各 属性 。 


站 Ruby 知 识 点 


。 Ruby 元 编程 基础 知识 。Ruby 的 对 象 模 开 
类 方法 、 单 例 方法 等 
查 其 对 象 模 型 ， 也 人 允许 动态 地 改变 行为 或 生成 代码 。 


。 模块 ， 以 及 通过 mixin 来 扩展 现 有 抽象 的 时 候 ， 模 块 在 其 


料 ， 例 如 类 、 对 象 、 实 例 方法 、 


2. 用 mixin 动 态 生 成 方法 


我 们 之 前 在 代码 清单 4-6 中 用 mixin 手 法 设计 过 Trade 
Trade 的 类 定义 内 写 入 内 联 的 验证 逻辑 ， 但 同时 希望 把 调用 和 


好 地 示范 了 什么 是 精炼 的 模型 设计 。 关于 


出 包含 许多 可 以 月 


明了 


锡 


分 ， 


现在 做 点 儿 类 似 的 事情 。 我 们 希望 在 
面 的 烦琐 构造 隐藏 起 


异常 报告 方 


囊 


属性 的 领域 约束 ， 


法 


反射 式 和 生成 式 元 编程 的 元 件 材 
等 。Ruby 元 编程 机 制 允许 你 在 运行 时 探 


所 起 的 作用 。 


来 ， 把 那些 重复 出 现 的 死板 代码 推 到 运行 时 去 生成 。 完 成 后 的 抽象 应 该 是 下 面 的 样子 : 
ns Se @ include 什 么 ? 


attr_accessor :ref_no, :account, 
trd_validate :principal do |vall 
val > 100 


:ijnstrument 


@@ 验证 逻辑 以 块 的 


式 


NS 


H 现 


end 


## ,，,， 
end 


这 段 代码 在 @ 的 位 置 还 少 了 些 东 西 (我 很 快 会 说 明 少 了 什么 ) 。trd_validate 就 是 负责 验证 
的 “装置 *， 它 要 对 以 块 的 形式 传 入 的 验证 逻辑 @@ 生 成 运行 时 调用 代码 。 


可 是 trd_validate 是 从 哪里 来 的 呢 ? 我 们 必然 要 在 别 的 什么 地 方 定 义 这 个 方法 ， 然 后 把 它 和 
Trade 类 的 主体 代码 联系 起 来 。 答 案 也 许 就 隐藏 在 @ 省 略 的 部 分 ， 我 们 把 代码 再 看 清楚 一 点 儿 。 
先 不 管 Trade 模型 怎么 获得 trd_validate 方法 ， 先 来 看 定义 类 方法 trd_validate 的 Ruby 模 
块 TradeClassMethods : 


module TradeClassMethods 
def trd validate(attribute, &check) 
define_method "#{attribute}=" do |val| @ 为 属性 生成 设置 方法 
raise 'Validation failed' unless check.call(val) 
instance_variable set("@#{attribute}", val) 
end 


define_method attribute do @ 为 属性 生成 获取 方法 
instance_variable get "@#{attribute}" 
end 


Eb 


end 


这 段 代码 做 了 哪些 事情 ? 它 利用 Ruby 语 言 在 运行 时 动态 定义 方法 的 能 力 ， 为 传递 给 
trd_validate 方法 的 属性 生成 setter @ 和 getter @ 方 法 ， 此 外 还 顺便 生成 代码 去 调用 用 
以 块 的 形式 传 入 的 验证 逻辑 。 真 不 错 ! 想 想 这 种 元 编程 手段 给 每 一 次 调用 trd_validate 省 下 了 
多 少 代 码 ， 再 乘 以 所 有 需要 trd_validate 经 手 的 属性 数量 ， 这 一 代码 量 相当 可 观 。 


3. 最 后 组 装 


一 切 就 绪 ， 到 了 最 后 组 装 起 来 的 时 刻 。 我 们 再 定义 个 模块 把 TradeClassMethods 模块 和 
Trade 类 粘 合 在 一 起 ， 使 t rd_validate 成 为 Trade 的 一 部 分 。 代 码 清 单 4-13 起 到 最 后 画 龙 点 
睛 的 作用 。 


代码 清单 4-13 ”含有 领域 验证 的 Trade 抽象 


## enable trade validation.rb 
require 'trade_class_ methods' 
module EnableTradeVvalidation 
def self.included(base) 
base.extend TradeClassMethods 
end 
end 


## trade.rb 
require 'trade_ class_methods' 
require 'enable trade validation' 


class Trade 
include EnableTradeValidation 


attr_accessor :ref_no, :account, :instrument 
trd_validate :principal do |vall 

val > 100 
end 


## ，.。 


本 例 至 此 大 功 告 成 。 为 了 避免 直接 编写 验证 
段 生 成 验证 逻辑 代码 的 活动 。 注 意 ， 
本 节 要 点 


本 章 讨论 的 大 多 数 模式 重点 放 在 降低 DSL 的 烦琐 程 度 ， 同 时 提高 表现 力 上 。 Ruby 和 Groovy 具 有 
尔 发 现 DSL 的 实现 代码 
那些 死板 代码 ， 不 如 让 


在 演练 各 式 绝招 ， 2 


很 强 的 运行 时 元 
打开 元 多 
日 绝 不 沉 
遍 的 时 
， 用 最 恰 


并 问 。 


AI 


逻辑 的 重复 劳动 ， 我 们 


启程 和 代码 生成 全 
局 程 的 锦 赛 。 与 其 


候 感 觉 ? 
的 方式 刻 


E 力 。 


当 


亲身 体验 了 一 把 运 


显 需 出 重复 的 迹象 ， 评 


元 编程 手 


者 


代码 是 在 Ruby VM 执 行程 序 的 时 候 ， 也 就 是 运行 时 生成 的 。 


青 拓 量 


fa 


[> 


村 


我 们 


机 


的 程 


将 讨论 
换 示 


程 是 通过 宏 在 编译 时 


4.5 生成 式 DSL: 通过 


鞭 好 了 吧 ? 那 我 们 
保持 紧 炭 ， 让 语言 


就 3 


YY 


用 学 到 家 也 不 要 紧 ， 当 你 掌 
画 解答 域 。 现 在 不 妨 换 换 脑 
广 开 发 范式 在 JVM 平 台 


上 的 Lisp 元 编程 。Ruby 和 Groovy 元 编 
完成 的 。 我 们 将 探讨 宏 会 


宏 进行 编译 时 代码 生成 


的 生成 式 元 编 
那些 死板 代码 。 而 对 于 Clojure 


开始 吧 。Ruby 和 Groovy 
言 运行 时 代替 你 编写 


了 这 些 技巧 背 
1 子 ， 在 编 


‘= 


语言 运行 时 帮 你 写 。 


肯定 会 派 上 


| 


就 能 


写 DSL 的 时 人 
的 总 体 思 路 ， 
程 能 


透 问 


TI 


上 的 新 发 展 。 
i 程 主要 基于 运 和 


给 内 部 DSL 带 


会 获得 


所 有 代码 生成 万 了 


的 好 处 ， 男 一 方 


性 EE 


的 详情 


Clojure 语 言 


， 请 访问 http://clojure.org 


言 的 语法 


FE 和 语义 ， 


有 Lisp 语 言 


情 


， 请 参阅 4.7 广 参考 文献 [3]。 


4.5.1 开展 Clojure 元 编程 


Clojure 是 一 和 
讨论 它 通过 “ 宏 虽 


1 制 提 和信 


Clojurei 


同时 叉 能 无 颖 


面 它 又 没 大 


I 程 在 运行 时 产生 


月 Groovy 和 Ruby 那 种 运行 时 负 担 。 


力 方 面 给 上 自 
我 们 要 说 的 是 Clojure 
行 时 代码 生成 ， 


来 怎样 的 设计 思路 


Dn 


(JVM 上 的 Lisp) ， 


(关于 


六 


乙 - 


1 动态 类 型 语言 ， 


实现 ] 
台 尼 


通过 宏 来 进行 的 代码 生成 属于 


的 代码 生成 能 力 


和 


卫生 全 je 人 诗作 的 


作 原 理 


“蝎子 类 型 ”， 还 提 作 


编译 时 元 编程 ， 
和 基本 概念 ， 


。) Clojure 语 言 按 照 其 
集成 Java 的 对 象 系统 。 


我 们 在 2 
请 阅读 附录 B 。 


统 的 事件 流程 。 
式 的 Clojure 代 码 成 分 


发 痢 在 程序 


强大 的 函数 式 编程 能 力 。 了 


创造 者 Rich 1 Hickey 的 设计 ， 


己 充 下 电 ， 


于 这 种 语言 及 其 运行 时 


因 
改 头 


而 Clojure 元 编 


尺码 ， 使 DSL 表面 语法 
一 方面 你 


拥 


的 详 


我 们 重点 


3.1 


节 提 到 过 。 如 果 你 不 熟悉 


图 4-13 简 要 概括 了 编译 时 元 编程 系 


1 以 宏 的 


区 式 定 义 


高 阶 抽象 ， 然 后 高 


阶 抽象 在 


编译 阶段 被 展开 


成 正 


程序 
2 


操控 对 象 及 元 对 象 
元 对 象 
对 象 | | ->= <= 开发 环境 


— 宏 展 开 (将 元 对 象 


| ” 展开 成 有 效 的 形式 ) 


编译 时 环境 => 
辕 
区 jy __ 
、 有 一 


运行 时 环境 => 运行 时 环境 仅 包含 有 效 的 代码 成 分 


图 4-13 ”编译 时 元 编程 通过 宏 展开 的 方式 产生 代码 。 注 意 代码 产生 的 时 间 是 在 编译 阶段 ， 因 此 没 
有 任何 额外 的 运行 时 开销 ， 与 图 4-12 的 情况 不 同 


具体 的 实现 细 市 我 们 等 一 下 再 谈 ， 现 在 先 对 下 面 将 要 涉及 的 问题 域 做 一 点 分 析 。 当 客户 委托 中 介 
交易 (无 论 买 入 还 是 卖 出 ) 某 一 品种 的 票据 时 ， 将 依次 发 生 以 下 动作 : 


1. 中 介 向 交易 所 提请 交易 ; 
2. 各 中 介 站 按照 委托 内 容 完 成 中 介 间 交易 ， 引 发 成 交 ; 
3. 成 交 结果 被 > 配 到 各 客户 账户 ， 产 生 客户 交易 。 
我 们 试 着 实现 从 成 交 结 果 产 生 客户 交易 的 分 配 过 程 。 在 现实 中 ， 委 托 、 成 交 结 果 、 客 户 交 易 之 间 


是 多 对 多 关系 。 为 了 让 例子 简单 一 些 ， 我 们 假设 成 交 结 果 与 客户 交易 之 间 是 一 对 一 的 关系 。 
Clojure 的 鸭子 类 型 将 在 这 个 用 例 的 建 模 过 程 中 贡献 力量 。 


站 Clojure 知 识 点 


。 前 缀 语法 和 画 数 式 思 维 。 Clojure 的 语法 建立 在 “S 表 达 式 ”的 基础 上 ， 采 用 前 级 表示 法 
(prefix notation) 。Clojure 的 语法 非常 规划， 标榜 绝对 一 致 性 ， 例 如 没有 运算 符 优先 级 。 
Clojure 是 画 数 式 语言 ， 各 下 "模块 被 组 织 成 画 数 的 形式 。 


。 Clojure 的 map 数据 结构 普遍 用 于 对 象 建 模 。 

。 宏 可 用 于 定义 DSL 的 语法 扩展 。 将 宏 在 编译 时 生成 代码 的 能 力 应 用 到 DSL 设 计 
使 DSL 语句 简洁 。 

4.5.2 实现 领域 模型 


我 们 来 思考 如 何 用 Clojure 定 义 交易 与 成 交 结果 。 交 易 和 成 交 结果 大 致 含有 相同 的 信息 ， 区 别 在 于 
成 交 结果 包含 一 个 中 介 账 户 ， 而 交易 是 在 下 单 客户 的 客户 账户 上 发 生 的 。 下 面 的 代码 片段 分 别 给 
出 了 交易 和 成 交 结果 的 一 个 示例 : 
(def tri 
{:ref-no "tr-123" 
:account {:no "cl-al" :name "john doe" :type ::trading}  @ Clojure 关 键 字 ::trading 


3 


l 


， 有 利于 


才 


:instrument "eq-123" :Value 1000}) 


(def ex1 
{:ref-no "er-123" 
:account f{:no "br-ai" :name "j p morgan" :type ::trading} 
:instrument "eq-123" :value 1000}) 


在 交易 的 数据 结构 之 内 ， 有 一 个 独立 的 账户 数据 结构 。 账 户 含 有 一 个 :type 属性 ， 表 明 它 是 交易 
账户 还 是 结算 账户 。 该 账户 类 型 属 怕 :被 建 模 为 Clojure 关 键 字 的 形式 @， 只 起 到 一 个 符号 标识 的 作 
用 ， 求 值 后 等 于 自身 。Clojure 关 键 字 提 供 快速 的 相等 性 测试 ， 被 当做 轻 量 级 的 常量 字符 串 来 
用 。 关 于 客户 账户 的 概念 及 其 不 同类 型 ， 请 阅读 3.2.2 节 的 补充 内 容 “ 金 融 中 介 系 统 : 客户 账户 ”。 


我 们 在 代码 清单 4-14 中 定义 两 个 函数 : 其 一 检查 给 定 的 账户 是 否 为 交易 账户 ， 其 二 分 配 成 交 结果 
到 一 个 客户 账户 上 ， 产 生 客户 交易 。 后 者 是 我 们 当前 面 对 的 要 问题 域 用 例 。 我 们 先 把 函数 定义 
出 来 ， 再 思考 哪些 地 方 属于 死板 代码 ， 可 以 通过 宏 来 生成 ， 让 实现 更 简洁 。 


代码 清单 4-14 成交 结果 分 配 函 数 


(defn trading? 
" 若 账户 为 交易 账户 ， 返 回 true " 
[account] 
(= (:type account) ::trading)) 


(defn allocate 
"分 配 成 交 结 果 到 客户 账户 并 产生 客户 交易 " 


[acc exe] 
(cond 
(nil? acc) (throw (IllegalArgumentException. 
"账户 不 可 为 空 ") ) @ 验证 
(= (trading? acc) false) (throw (IllegalArgumentException. 
"必须 为 交易 账户 " ) ) @ 验证 


:else {:ref-no (generate-trade-ref-no) 
:account acc 
:instrument (:instrument exe) :value (:value exe)})) 


观察 allocate 函数 的 内 容 ， 它 的 核心 业务 逻辑 位 于 cond 语句 的 :else 子 句 中 。 前 面 两 个 条 件 
子 句 @ 是 交易 子 系统 内 任何 操作 都 必须 满足 的 验证 。 对 于 任何 作用 于 交易 的 方法 ， 我 们 都 要 确认 
交易 账户 是 非 空 的 实体 ， 还 要 确认 它 确实 是 一 个 交易 账户 而 非 结算 账户 。 以 上 内 容 构成 了 
allocate 方法 的 主要 界面 。allocate 方法 含有 一 些 非 本 质 的 代码 复杂 性 ， 有 必要 分 解 到 核心 
的 API 实 现 之 外 。 


4.5.3 Clojure 宏 之 美 


既然 我 们 在 allocate 方法 内 做 的 那些 验证 其 实 广泛 适用 于 所 有 的 交易 功能 ， 何 不 把 它们 重 构 成 
可 重用 的 实体 呢 ? 那样 的 话 ， 我 们 将 甘 得 一个 可 以 检查 所 下 帐 忆 的 叭 全 吝 娄 | 类 似 了 先前 4.4. 工 节 
定义 Ruby 模 块 TradeClassMethods 时 我 们 对 trd_validate 所 做 的 处 理 。 不 过 这 次 所 用 的 手 
段 一 一 宏一 一 有 其 鲜明 的 优点 ， 请 看 插入 内 容 。 


品 Clojure 的 宏 特性 可 用 于 在 编译 阶段 生成 代码 ， 编 译 后 ， 宏 被 展开 成 普通 的 Clojure 代 码 成 
。 优 点 有 两 重 : 


1. 宏 在 编译 阶段 被 内 联展 开 ， 避 免 了 画 数 调用 的 开销 ; 


2. 代码 更 具 可 读 性 ， 因 为 不 需要 用 到 lambda 表 达 式 。 如 果 用 高 阶 函 数 来 实现 的 话 ，lambda 表 
达 式 不 可 避免 。 
下 面 的 例子 可 以 让 你 看 清楚 宏 的 用 法 和 特点 。 例 中 定义 了 一 个 宏 ， 它 用 在 语句 里 面 形式 上 很 像 一 
般 的 Clojure 控 制 抽象 ， 但 其 实 里 面 封装 了 验证 逻辑 。 
(defmacro with-account 
[acc & body] 
(cond 
. (nil? ~acc) (throw (IllegalArgumentException. 
"账户 不 可 为 空 ") ) 
(= (trading? ~acc) false) (throw (IllegalArgumentException. 
"必须 为 交易 账户 ") ) 
:else ~@body)) 
注意 ，body 内 可 含有 不 定数 量 的 form， 它 们 在 非 符 号 类 型 拼接 (splicing unquote) 运算 ~@ 的 作用 
下 被 插入 到 生成 的 代码 中 。 (关于 非 符号 类 型 拼接 的 人 
如 果 我 们 把 验证 逻辑 实现 成 一 个 函数 ， 个 可 避免 地 要 用 到 lambda 表 达 。 而 当 我 们 用 with - 
account 宏 来 定义 allocate 画 数 时 ， 代 码 会 十 分 清晰 易 伐 ; 
(defn allocate 
"分 配 成 交 结 果 到 客户 账户 并 产生 客户 交易 " 
人 acc 
{:ref-no (generate-trade-ref-no) 
:account acc 
:instrument (:instrument exe) :value (:value exe)})) 
现在 ， 实 现 只 需要 重点 关注 核心 的 领域 逻辑 ， 与 代码 清单 4-14 相 比 简 洁 明 了 得 多 。 全 部 的 异常 处 
理 部 分 ， 还 有 全 部 的 非 本 质 复杂 性 ， 完 全 被 分 解 出 来 放 在 宏 里 面 同时 还 没有 增加 任何 运行 时 开 
销 。with-account 宏 的 功用 不 再 局 限于 allocate 的 实现 ; 它 成 了 个 通用 的 控制 结构 ， 看 上 
去 和 一 般 的 Clojure 语 句 成 分 没什么 两 样 ， 而 且 可 以 被 所 有 需要 验证 交易 账户 的 API 重 用 。 
本 节 要 点 
本 入 的 草 点 是 使 DSL 实 现 简洁 而 又 不 失 表 现 力 。 这 个 思路 也 贯穿 了 全 章 ， 各 节 在 阐述 过 程 中 呈 
现 的 差别 只 在 于 如 何 实现 这 个 思 
Clojure 宏 除了 可 使 DSL 简洁， 还 对 运行 时 性 能 没有 任何 影响 。Clojure 语 言 本 身 的 可 塑性 非常 
强 ， 人 允许 你 精确 地 表达 DSL 所 需 的 语法 和 语义 。Lisp 家 族 这 方面 的 能 力 非 常 突出 ， 天 生 适 合用 于 
建 模 真实 的 世界 。 
不 同形 式 的 生成 式 DSL 都 可 以 代替 你 写 代 码 。 但 借助 敏锐 的 观察 力 ， 你 肯定 已 经 察觉 不 同 语言 实 
现 ， 以 及 不 同 代码 生成 时 机 之 间 的 差别 。4.4 节 讨论 了 运行 时 代码 生成 ， 本 节 讨 论 如 何 通 过 Clojure 
宏 实 现 编译 时 代码 生成 。 两 种 策略 各 有 优 缺 点 ， 你 必须 仔细 拓 量 所 有 的 选项 才 好 决定 一 个 最 佳 的 
实现 方案 。 
4.6 小 结 


本 章 漫长 的 学 习 之 旅 已 接近 尾声 


段 


， 你 的 耐心 值得 称赞 。 


展开 讨论 ， 几 乎 涵盖 
要 点 与 最 佳 实践 


了 所 有 的 内 部 DSL 实 现 模式 。 


我 们 一 


路 针对 金融 中 介 


系统 领域 的 问题 片 


设计 内 部 DSL 的 时 候 ， 你 应 遵循 实现 语言 的 最 佳 实践 。 按 照 一 种 语言 的 习惯 去 运用 它 ， 我 们 总 
是 能 在 表现 力 和 性 能 之 间 取 得 最 佳 的 平衡 。 


Ruby、 Groovy 等 动态 语言 谷子 使 用 者 非常 大 的 元 编程 能 力 。 请 借助 这 些 能 力 去 设计 DSL 抽 和 象 和 
背后 的 语义 模型 ， 你 会 得 到 漂亮 的 简洁 语法 ， 而 死板 代码 则 交 由 语言 运行 时 去 处 理 。 


对 于 像 Scala 这 样 的 实现 语言 ， 静 态 类 型 是 你 的 好 帮手 。 我 们 建议 大 家 运用 类 型 抽象 来 表达 大 部 
分 业务 逻辑 ， 让 编译 器 充当 DSL 语 法 的 第 一 道 验 证 防线 。 


对 于 Clojure 这 类 具有 编译 时 元 编程 能 力 的 语言 ， 请 用 宏 来 自 定义 语法 结构 。 你 会 得 到 不 输 于 
Ruby 实 现 的 简洁 语法 ， 同 时 不 会 遭遇 额外 的 运行 时 人 负担。 


Ruby、Groovy 等 动态 语言 提供 了 强大 的 反射 式 元 编程 范式 ， 用 在 DSL 实 现 中 对 语言 简洁 性 和 表现 
办 者 有 很 大 的 帮助 。 这 类 语言 多 许 你 在 运行 时 操控 其 元 模型 ， 因 此 特别 适合 用 来 实现 较为 动态 的 
结构 。 


本 章 向 你 演示 了 动态 builder 和 装饰 器 的 制作 方法 ， 教 你 芍 驭 元 编程 的 力量 。 而 且 ， 相 信 你 还 学 会 
了 运用 静态 类 型 以 声明 式 风格 表达 领域 约束 。 最后， 我 们 学 习 了 如 何 实现 生成 式 DSL， 在 编译 时 
或 运行 时 生成 代码 。 


阅读 完 本 章 ， 你 应 该 能 够 从 语言 惯用 法 和 最 佳 实践 的 角度 去 思考 问题 ， 以 之 为 标杆 来 衡量 自己 的 
DSL 实 现 。 我 们 谈 了 很 多 模式 ， 你 不 难 在 自己 的 DSL 模 型 中 为 它们 找到 适用 的 上 下 文 。 前 面 几 章 
直 泛 泛 地 赞扬 基于 DSL 的 开发 ， 本 章 终于 把 问题 域 的 特 必定 场景 和 具体 的 实现 结构 联系 起 来 了 。 
本 章 为 你 的 DSL 风 景 线 增 添 了 以 下 主要 “景色 ”: 

。 你 现在 知道 如 何 发 挥 实现 语言 内 在 的 力量 去 提高 DSL 的 简洁 度 ; 

。 如 果 选 用 静态 类 型 语言 ， 你 可 以 围绕 类 型 化 的 抽象 去 建立 DSL 模 型 ; 


。 如 果实 现 语言 具备 元 编程 能 力 ， 你 可 以 利用 这 一 点 使 DSL 的 语法 更 紧凑 ， 让 语言 运行 时 或 者 
编译 设施 代替 你 生成 代码 。 


接 下 来 我 们 应 该 继续 探索 更 多 来 自 现实 世界 的 例子 。 下 一 章 我 们 会 讨论 动态 类 型 语言 家 族 ， 看 看 


ps 实现 具有 良好 表现 力 的 DSL 有 什么 好 办 法 。 还 等 什么 呢 ? 让 我 们 精神 倍增 地 学 习 后 面 的 
理 彩 内 容 吧 ! 
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第 5 章 Ruby、Groovy、Clojure 语 


言 中 的 内 部 


DSL 设 计 
本 章 内 容 

。 利 用 蝎子 类 型 和 元 编程 使 DSL 更 简洁 

。 用 Ruby 语 言 实现 交易 处 理 DSL 

。 用 Groovy 语 言 改进 之 前 的 指令 处 理 DSL 

。 用 Clojure 语 言 转 换 思 路 重新 实现 交易 处 理 DSL 

。 一 些 实现 语言 的 常见 陷阱 
学 习 新 范式 和 新 设计 手段 的 最 佳 途 径 ， 是 找到 最 能 体现 该 范式 特点 的 语言 ， 观 察 语 言 和 范式 在 真 
实 的 实现 案例 中 的 表现 。 第 4 章 我 们 谈 了 不 少 有 利于 提高 内 部 DSL 表现 力 的 惯用 法 和 模式 。 本 章 我 
挑选 了 三 种 目前 最 流行 的 VM 语言 ， 向 你 示范 如 何 用 它们 建立 符合 现实 需要 的 DSL 。 
本 章 将 按照 图 5-1 所 示 内 容 展 开 讨 论 。 

适合 用 于 实现 内 部 DSL 的 需要 注意 的 
各 种 动态 类 型 语言 的 特性 些 陷阱 
| 
-种 用 Ruby 语 言 -种 用 Clojure 语 言 
实现 的 内 部 DSL 实现 的 内 部 DSL 
用 Groovy 语 言 改进 之 
前 的 指令 处 理 DSL 

图 5-1 ”本章 路 线 图 
本 章 选 择 的 语言 都 是 动态 类 型 语言 。 我 首先 会 说 明 动 态 类 型 语言 拥有 哪些 特质 能 造就 优秀 的 
DSL， 其 次 解释 为 何 可 选择 Ruby ， 、 Groovy 、 Clojure 这 三 种 语言 来 展开 讨论 。 然 后 我 们 进入 实现 环 
节 ， 依 次 引导 你 用 这 三 种 语言 分 别 实现 一 个 完整 的 DSL。 这 期 间 我 们 会 讨论 每 种 语言 中 常用 
DSL 设 计 的 主要 特性 ， 同 时 介绍 选取 正确 实现 模式 的 若干 原则 和 思路 。 
阅读 完 本 章 ， 你 对 于 如 何在 具有 类 似 特性 的 语言 中 开展 DSL 设 计 工 作 将 有 一 个 全 面 的 认识 
多 个 完整 的 DSL 实 现 过 程 ， 你 将 学 会 从 目 标 DSL 的 有 度 去 思考 ， 学 会 按照 设 i 计划 :图 把 实现 语 0 
排 成 你 希望 提供 给 用 户 的 DSL 语 法 。 
本 章 涉及 大 量 编程 实践 。 请 你 把 相应 语言 的 解释 器 都 找 出 来 ， 准备 好 迎接 大 量 代码 。 我 们 的 例子 
都 比较 简短 明了 ， 保证 不 会 让 你 厌烦 。 本 书 附录 为 三 种 语言 都 准备 了 简单 的 复习 资料 ， 如 果 你 对 
吨 p 丰 语言 不 太 熟 悉 ， 不 妨 翻 看 一 下 作为 热身 。 如 果 你 对 多 语 开 发 ， 即 司 时 使 多 种 语言 进行 开发 
的 概念 感到 陌生 ， 附 录 G 可 以 作为 入 门 介绍 。 下 面 我 们 就 从 选择 这 三 种 语言 的 理由 说 起 。 


5.1 动态 类 型 成 就 简洁 的 DSL 
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来 的 DSL 要 在 
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(第 5.5 节 将 讨论 基于 动态 语言 
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和 色 。 动 态 类 型 语言 


法 较为 


简明 ， 
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i 程 者 的 意 
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的 领域 


上 的 干扰 ， 可 以 更 清和 
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琅 DSL 


区 别 于 一 般 API 的 基本 特质 之 一 。 我 


的 DSL 所 具备 的 三 大 重要 特质 : 


1.1 小 季 ) ; 
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方式 (第 5.1.3 小 节 ) 。 


挫 入 不 必要 的 复杂 内 容 。 


编程 语言 的 类 型 系统 有 可 


像 Java 那 么 现 台 
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| 的 实现 语言 ， 很 可 能 最 后 ! 
言 不 要 求 提供 类 型 标注 ， 所 以 相 
图 。 至 于 意图 背后 的 实现 ， 


的 常见 陷阱 ， 届 时 你 会 看 到 这 方面 


制作 出 


来 的 DSL 及 其 实现 也 因此 较为 易 


直观 地 感受 出 来 ， 不 过 动态 语 


言 还 有 男 


个 特点 ， 同 术 


在 内 部 DSL 的 设计 和 实 
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5.1.2 觅 子 类 型 
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组 成 的 层次 结构 ， 但 
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SS 


态 类 型 语言 言辞 精炼 ， 虽 然 表现 


背后 的 ) 
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如 
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着 该 对 象 的 继承 链 


NoMethodError 。 编 译 
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播 ， 直 至 找到 一 个 祖先 对 象 满足 消 
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以 在 运行 时 


并 不 确 


息 ， 如 果 在 消 


语言 如 Scala， 


息 被 调用 的 那 一 刻 ， 
称 为 岗子 类 型 (duck typin 
也 可 以 实现 


oa 


台子 类 型 


1. 通 过 鸭子 类 型 实现 的 多 态 


的 遇 


疏 者 实现 了 正 胡 


目 


定 在 这 个 对 象 
修改 对 象 的 有 


向 应 目 


上 调用 


法 
那 则 消 , 


应 该 消息 ， 用 户 将 得 到 一 个 
筷 是 否 有 效 ， 因 为 不 存在 这 方 盏 


标 ， 


改变 其 


标 对 象 支 
) ， Ruby 、 Groovy、 Clojure 等 众多 语言 
我 们 将 在 第 6 章 1 


百 


竺 该 消息 


子 类 型 对 于 我 们 实现 DSL 有 什么 好 处 呢 ? 


那么 


论 及 。 


方法 和 属性 。 对 于 任意 给 定 的 消 
就 认为 调用 是 有 效 的 。 这 个 机 制 


都 实现 了 这 种 机 制 。 静 ; 


a 


简单 ; 


取 简 洁 的 实现 。 你 不 需要 前 


的 契约 ， 它 衣 


可 以 合理 


态 地 声明 接口 ， 也 不 需要 依赖 继承 关系 去 实现 多 态 。 只 
地 响应 消息 


时 。 多 


J 话 ， 我 们 牺牲 前 
5-2 描 绘 了 通过 鸭子 类 型 来 实现 多 态 


4DA 


< 说 还 是 那 


I 


Foo 抽 象 Bar 抽 象 


a TE 
响应 quack () od > 响应 quack () 


Rs 
qs = [new Foo(), new Bar()] 
for (gq in qs) { 

q.quack () 
} 
一 


没有 共同 基 类 的 多 态 


图 5-2 鸭子 类 型 构成 的 多 态 。Foo 和 Bar 抽象 并 没有 任何 共同 的 基 类 ， 但 在 支持 鸭子 类 型 的 语言 
里 ， 可 以 把 它们 看 作 是 多 态 的 


接 下 来 我 们 看 一 个 金融 交易 领域 的 例子 。 我 们 首先 做 一 个 用 了 接口 的 Java 实 现 ， 然 后 做 一 个 用 了 


岗子 类 型 的 Ruby 实 现 ， 让 你 在 对 比 之 下 体会 后 者 的 简洁 。 

2. 金 融 交 易 领 域 的 例子 

交易 所 里 A 类 型 的 划分 与 被 交易 的 票据 和 。 (交易 、 票 据 、 成 交 这 
些 概念 你 应 该 已 经 熟悉 ] 和 所 遗忘， 请 翻 查 前 面 几 章 的 插入 栏 。) 证 券 交 易 是 涉及 股票 和 
固定 收益 的 买卖 。 外 汇 交易 涉及 以 即 其 (spot) 或 掉 期 (swap) 交易 的 形式 交换 各 种 外 国货 币 。 
一 般 地 ， 在 Java 这 样 的 静态 类 型 语言 里 面 ， 你 会 将 这 两 个 概念 建 模 为 同一 接口 下 的 两 个 特殊 化 抽 
象 。 继 承 链 的 定义 也 是 静态 的 ， 各 下 面 的 代 宙 片段 所 示 : 


interface Trade { 
float Valueof( ) ， 


class SecurityTrade implements Trade { 
public float valueof() { //.. } 


Class ForexTrade implements Trade { 
public float valueof() { //.. } 


如 果 有 一 个 计算 交易 现金 价值 的 方法 ， 要 求 可 以 传递 给 它 任意 类 型 的 Trade 对 象 ， 那 么 实现 出 来 
会 是 这 个 样子 


public float cashvalue(Trade trade) { 
trade.valueof(); 


cashValue 方法 的 参数 被 限定 为 实现 了 valueof 方法 的 最 高 一 级 静态 类 型 。 这 项 约束 由 Java 编 
译 器 静态 地 核查 。 作 为 对 比 ， 请 你 看 男 一 个 实现 ， 下 面 的 代码 清单 用 了 蝎子 类 型 来 实现 
cash_value 方法 。 


代码 清单 5-1 ”鸭子 类 型 构成 的 多 态 


class SecurityTrade 
## .. 
def value_of 


class ForexTrade 
## .， 
def value_of 
## .， 
end 
end 


def cash_value(trade) 
trade.value_of 
end 


cash_value(SecurityTrade.new) 
cash_value(ForexTrade.new) 


这 个 实现 没有 前 面 那些 周边 设施 ， 不 存在 静态 继承 关系 ; 只 要 传递 的 对 象 实现 了 value_of 方 

法 ， cash_value 就 能 执行 无 误 。 假 如 传递 一 个 没有 实现 Value_of 方法 的 无 关 对 象 ， 会 怎么 样 
呢 ? 毫 无 疑问 ，cash_value 会 在 运行 时 卡 膏 。 所 以 你 应 该 有 全 面 的 单元 测试 去 核查 保护 各 处 净 
约 。 


单元 测试 时 ， 由 于 不 需要 穷 于 应 付 前 仿 类 型 的 安全 ， 很 容易 构建 用 于 测试 的 模拟 对 象 。 记 住 ， 在 
一 和 支持 鸭子 类 型 的 语言 言 里 面 ， 不 要 去 检查 类 型 ， 也 不 要 试图 用 动态 语言 来 模拟 前 态 类 型 。 这 是 
本 Ev 象 设计 因 路 。 抽象 有 没有 实现 它 应 该 向 客户 提供 的 兆 约 ， 这 才 是 你 的 测试 套 伯 
对 的 目标 。 


榴 子 类 型 令 你 无 需 写 出 静态 的 约束 检查 代码 。 仅 仅 这 一 条 就 立即 让 DSL 实 现 简 洁 了 许多 ， 同 时 编 
写 者 的 意图 也 表达 得 很 清晰 。 我 们 在 第 4.2.2 小 方 ， 在 Ruby 中 通过 动态 mixin 实 现 装 饰 器 的 时 候 已 经 
讨论 过 这 一 点 。 最 后 得 到 的 DSL 如 下 所 示 : 


Trade.new('r-123', 'a-123', 'i-123', 20000).with TaxFee, Commission 


人 HF 


注意 ， 我 们 向 Trade 抽象 里 混入 了 TaxFee 和 Commission 两 个 模块 ， 交 易 的 总 现金 价值 通过 
Ruby 的 鸭子 类 型 计算 得 出 。 


接着 我 们 要 与 第 4 章 认 识 的 元 编程 技术 再 次 碰面 。 动 态 类 型 语言 用 元 编程 技术 可 以 把 你 从 重复 性 的 
死板 代码 中 解放 出 来 。 


5.1.3 元 编程 一 一 叉 磁 面 了 


除了 省 去 类 型 标注 外 ， 动 态 类 型 还 有 什么 办 法 令 DSL 语 言 更 简洁 ? 答案 我 们 在 上 一 章 就 知道 了 ， 
它 可 以 通过 语言 本 身 的 机 制 生成 重复 性 的 代码 结构 ， 免 除 手工 编写 的 负担 。 简 清 的 实现 对 于 DSL 
的 设计 首 很 重要 而 简洁 的 DSL 编 程 界 面 对 了 DSL 的 使 用 者 同样 重要 。 Ruby 和 Groovy 都 拥有 非常 
精良 的 元 编程 设施 ， 可 以 在 运行 时 引入 新 的 方法 和 属性 ， 我 们 已 经 在 第 2.3.1 小 节 和 第 4.2 节 讨论 
过 。 举 一 个 例子 来 顾 动 态 类 型 天 于 DSL 实 现 简 洁 性 的 正面 影响 吧 。 下 面 的 代码 清单 用 Groovy 语 
言 演 示 了 一 个 运用 元 编程 和 闭 包 来 实现 的 XML 建 造 器 。 


代码 清单 5-2 ” ”Groovy 语言 实现 的 XML 建 造 器 ， 展 示 动 态 元 编程 的 力量 


AS 


开 a 


def clientorders = //.. 
builder = new groovy.xml.MarkupBuilder() 


builder,orders { 
clientOrders.each {ord -> 
order(type: ord.getBuysSell()) 
instrument(ord.getSecurity() 
quantity(ord.getQuantity()) 
price(ord,getLimitPrice()) 


{ 外 Groovy 的 动态 方法 分 发 
) 


例 中 Groovy 语 E> Markuppu lder 对 于 order 、instrument 、quantity 、price 等 
方法 一 无 所 知 @，。 话 言 运 行 时 通过 Groovy 的 动态 方法 分 发 机 制 以 及 methodMissing() 钩子 ， 拦 
截 所 有 未 定义 的 方法 调用 。Ruby 语 言 也 有 类 似 的 手法 。 动态 类 型 语言 提供 了 拦截 器 来 应 付 所 有 未 
定义 的 方法 。 这 样 的 技巧 使 程序 更 简洁 、 更 动态 ， 同 时 又 能 保留 必要 的 表现 力 。 


我 们 分 析 了 动态 语言 实现 的 DSL 的 三 项 代表 性 特质 。 第 一 项 易 读 性 说 的 是 DSL 脚本 的 表面 语法 ; 
另外 两 项 ， 册子 半 型 和 元 编程 则 更 多 地 与 实现 技术 有 关 。 我 们 试 着 列举 一 下 Ruby、Groovy、 
Clojure 语 言 各 具备 哪些 特性 ， 有 利于 创作 表现 力 充沛 的 DSL 。 


5.1.4 为 何 选 择 Ruby 、Groovy 、Clojure 


Ruby、Groovy、Clojure 三 种 语言 都 完全 具备 前 述 动 态 类 型 语言 的 三 大 特质 ， 它 们 都 是 适合 实现 内 
部 DSL 的 优秀 宿主 语言 。 表 5-1 总 结 了 它们 的 语言 特性 。 


表 5-1 Ruby、Groovy 和 Clojure 语 言 具备 以 下 特质 ， 使 它们 成 为 内 部 DSL 实 现 语言 的 优秀 候选 者 


易 读 性 鸭子 类 型 元 编程 
支持 网 子 关 型 ， 且 F a 本 
Ruby 语法 灵活 ， 无 需 类 型 标注 ， 文 字 表达 手段 丰富 nesponds. tor 检查 一 个 类 和 
是 否 响 应 给 定 的 消息 | 全 


作 


4 四 耻 - 王 潜 邢 、 运行 时 元 编程 外 ee 通过 
0 允许 无 公 Groovy 元 对 象 协议 (MOP) 实 
2 DA 现 


Groovy 语法 灵活 ， 类 型 标注 可 选 ， 文 字 表达 手段 丰富 


语法 灵活 ， 但 作为 [isp 的 变 体 ， 为 前 级 语法 形式 所 限 。 可 经 由 宏 机 制 实现 编译 时 元 编 
Clojure 人 允许 程序 员 提 供 可 选 的 类 型 提示 (type hint) 以 利 方法 也 程 。Clojure 有 极 强 的 可 塑 
分 发 ， 可 避免 像 Java 那 样 的 反射 式 调 性 ， 可 视 DSL 之 需 灵 活 扩展 


阳 钛 Ruby 、 Groovy 、 Clojure 有 一 些 共同 的 特点 ， 但 它们 在 DSL 实 现 方面 的 差别 其 实 也 很 大 ， 足 以 
区 我 们 分 成 三 节 来 分 别 讨论 。 这 三 种 语言 都 在 TVM 上 运行 ， 都 拥有 很 强 的 元 编程 能 力 ， 也 都 迅速 
为 了 主流 的 于 发 语言 。 然 而 就 在 与 VM 集成 的 方式 这 个 很 基本 的 问题 上 ， 它 们 却 给 出 了 不 一 样 
的 答案 。 图 5-3 总 结 了 这 三 种 语言 的 一 些 异同 。 


Ff 0 


oy 


去 有 


JRuby Groovy Clojure 


运行 在 VM 上 X X X 
动态 类 型 X X X 
运行 时 元 编程 x x 

编译 时 元 编程 > ? x 


共享 Java 的 对 象 系统 


桥接 Java 的 对 象 系统 X 


? : 通过 操纵 AST 的 库 提供 有 限 支 持 
图 5-3 Ruby、Groovy、Clojure 呈 现 了 多 样 化 的 DSL 实 现 方案 


本 章 我 们 将 分 别 用 这 三 种 语言 探索 内 部 DSL 的 实现 。 在 讨论 过 程 中 ， 我 们 将 观察 每 一 种 语言 的 不 
同 特性 ， 同 时 剖析 每 项 特性 在 第 4 章 深入 讨论 过 的 那些 模式 中 所 起 的 作用 。 


5.2 Ruby 语 言 实现 的 交易 处 理 DSL 


本 节 我 们 要 开发 一 个 完整 的 用 例 。 我 们 要 设计 一 种 DSL 用 于 建立 新 的 证 券 交 易 ， 并 根据 可 灵活 组 
合 的 业务 规则 计算 交易 的 现金 价值 。DSL 执 行 之 后 ， 将 产生 一 个 Trade 抽象 的 实例 供应 用 程序 使 
用 ， 具 体 用 法 因应 用 而 异 。 我 们 会 从 一 个 简单 的 实现 开始 并 逐步 进行 改进 ， 充 实 其 表现 力 和 领域 
内 涵 。 图 5-4 展 示 了 DSL 演 进 的 迭 路线 图 ° 


惟有 oy 鸭子 类 型 
其 gAPI 开 始 e 胎 二 类 型 
本 的 4 于 咎 。 隐 式 上 下 文 
。 基 本 的 元 编程 
建立 一 个 加 强 的 
Instrument 模 型 
。 猴 子 补丁 
设立 一 个 解释 器 。 进一步 元 编程 
。 正 则 表达 式 处 理 
。 动 态 方法 调用 
以 装饰 器 方式 
加 入 领域 规则 


e 动态 mixin 组 合子 


图 5-4 ”我 们 逐步 丰富 Ruby DSL 的 实现 手段 ， 完 善 交易 处 理 DSL。 每 个 阶段 我 们 都 投入 更 多 Ruby 
语言 的 抽象 能 力 ， 增 加 更 多 领域 功能 ， 用 以 充实 DSL 


在 整个 开发 过 程 中 ， 老 鲍 会 担当 我 们 的 指导 ， 人 负责 指出 所 有 不 当 之 处 和 需要 改进 的 地 方 ， ， 帮 助 我 
们 打造 一 个 表现 力 充沛 的 DSL 设 计 。 至 于 能 不 能 满足 老 鲍 的 要 求 ， 就 要 看 Ruby 帮 不 帮忙 了 


代码 提示 。 后 面 几 节 含有 大 量 代 码 片 段 ， 我 会 插入 说 明 一 些 预备 知识 ， 解 释 必要 的 语言 特性 ， 
以 便 读 者 理解 实现 中 的 细微 之 处 。 阅 读 之 前 也 不 妨 先 翻 看 本 书 附录 中 相应 语言 的 速 查 表格 。 


请 牢记 我 们 的 目标 : DSL 要 让 老 鲍 能 看 懂 ， 并 且 能 检查 D5SL 是 否 违 反 了 他 的 业务 规则 。 
5.2.1 从 API 开 始 


最 开始 的 API 设 计 总 是 略 显 粗 烽 的 。 动 态 语 言 的 开发 历程 就 像 制 陶 一 样 ， 你 总 是 从 一 团 锋 土 开始 ， 
然后 有 步骤 地 塑造 其 形态 ， 逐 渐 增 加 其 表现 力 。 


站 Ruby 知 识 点 


。 Ruby 中 如 何 定 义 类 和 对 象 ? Ruby 是 一 种 面向 对 象 语言 ， 类 的 定义 形式 与 其 他 OO 语言 相 
仿 。Ruby 有 其 特殊 的 对 象 模型 ， 允 许 你 在 运行 时 通过 元 编程 机 制 修改 、 调查 、 扩 展 对 象 。 


se Ruby 语 言 允 许 你 向 方法 传递 一 个 散 列 容器 作为 
参数 ， 以 此 来 模拟 “关键 字 参 数 ” (keyword arguments) 的 特性 。 


。 Ruby 元 编程 基础 知识 。Ruby 的 对 象 模 型 包含 许多 可 以 用 了 反射 式 和 生 成 式 元 编程 的 元 牛 
材料 ， 例 如 类 、 对 象 、 实 例 方法 、 类 方法 、 单 例 (singleton) 方法 ， 等 等 。Ruby 元 编程 机 
制 允许 你 在 运行 时 探查 其 对 象 模型 ， 也 允许 动态 地 改变 行为 或 生 成 人 条 


请 思考 以 下 代码 片段 ， 这 是 我 们 的 API 设 计 师 想 出 来 的 第 一 版 DSL: 


主 


上 


instrument = Instrument.new('Google') 将 被 交易 的 新 票据 
instrument.quantity = 100 


TradeDSL.new,new_trade 'T-12435'， ”将 被 创建 的 交易 
'acc-123', :buy, instrument, 
'unitprice' => 200, 
'principal' => 120000, 'tax' => 5000 


老 饱 见 了 之 后 大 声 喷 咕 起 来 :“ 喂 ! 这 个 东西 太 技 术 了 。 我 想 要 一 个 票据 对 象 还 得 调用 那 一 串 奇 怪 
的 构造 ? 我 平常 可 不 是 这 么 解读 交易 和 票据 的 。 


老 鲍 的话 有 道理 ， 我 等 下 再 解释 。 你 先 跟 我 复 诵 一 遍 : DSL 绝 不 会 第 一 次 就 做 对 。DSL 总 是 迭 
代 演 进 的 。 上面 的 片段 只 是 一 套 中 规 中 矩 的 API， 其 易 读 性 只 达到 Ruby 的 一 般 水 平 。 它 还 没有 形 
成 连贯 的 句子 ， 读 起 来 不 像 掀 平 常 处 理 交易 业务 时 挂 在 口 边 的 话语 。 不 过 ， 这 段 代码 给 我 们 黄 
定 了 一 点 基础 ， 可 以 作为 我 们 的 出 发 点 。 


1. 基 本 抽象 


任何 DSL 设 计 都 是 从 一 组 基本 抽象 开始 ， 然 后 在 上 面 建立 符合 领域 习惯 的 语言 。 这 样 的 过 程 我 们 
称 为 自 底 向 上 的 编程 方式 ， 大 的 抽象 由 小 的 抽象 生长 而 成 ， 最 后 形成 领域 专家 想 要 的 表现 形态 。 


我 们 的 DSL 设 计 从 针对 SecurityTrade 、Instrument 等 基本 领域 实体 的 一 组 API 开 始 。 下 面 
的 Ruby 代 码 清单 是 API 对 应 的 一 些 基 本 抽象 。 


上 


代码 清单 5-3 


class SecurityTrade 


SecurityTrade 的 Ruby 实 现 (第 一 


Rh 


次 迭代 ) 


:ref_no, 
:account, 
:buy_sell, 
:instrument, 
:unitprice 


attr_reader 


:principal, 
:tax, 
:commission 


attr_accessor 


def initialize(ref_no, account, buy_sell, instrument, unitprice) 
Q@ref_ no = ref_no 
Qaccount, @buy_sell, @instrument, 


account, buy_sell, instrument, 


@unitprice = 
unitprice 
end 


创建 交易 的 类 方法 


instrument, h) ©@ 


def self.create(ref_no, account, buy_sell, 
h[ unitprice' ]) 


tr = new(ref_no, account, buy_sell, instrument, 
[:principal, :tax, :commission].each do |m| 
tr.instance_eval("tr.#{m} = h['#{m}'] if h.has_key?('#{m}')") 
end 
tr 
end 
end 


hash 容 器 的 值 


@ 填 入 来 


来 给 unitprice 、 principal 和 tax 提供 命名 参 


create 类 方法 里 面 的 h 是 个 hash 容 器 @， 用 对 
数 。 用 hash 容 器 来 实现 命名 参数 是 Ruby 的 一 种 惯用 法 。 位 置 @ 还 采用 了 一 种 有 意思 的 技巧 ， 即 利 
用 元 编程 建立 被 调用 对 象 的 隐 式 上 下 文 ， 并 用 hash 容 器 h 中 取出 的 各 参数 值 填充 交易 对 象 实例 。 
我 们 在 第 4.2.1 小 节 讨 论 过 如 何 建立 隐 式 上 下 文 。 
代码 清单 5-4 实 现 了 Instrument 类 。 这 个 类 没有 写成 不 可 变 的 形式 ， 除 此 之 外 没什么 特别 值得 注 
意 的 地 方 。 就 当前 版 本 的 DSL 而 言 ， A 以 把 它 写 成 不 可 变 的 值 对 象 。 但 之 所 以 保留 为 可 变 的 
对 象 ， 到 下 一 节 你 就 能 清楚 知道 其 到 时 候 我 们 要 利用 它 的 可 变性 来 创造 一 种 票据 DSL 。 
代码 清单 5-4 ”在 Ruby 中 实现 Instrument 交易 
class Instrument 
attr_accessor :name, :quantity 
def initialize(name) 
Q@name = name 
end 
def to_s() 
"(Name: " + @name.to_s + 
"/Quantity: " + @quantity.to_s + ")" 
end 
end 
本 小 节 代 码 缺 少 的 最 后 模块 是 TradeDSL 类 ， 它 只 负责 把 前 面 的 材料 串 在 一 起 : 


require "Security_trade' 
class TradeDSL 
def new trade(ref_no, account, buy_sell, instrument, attributes) 
SecurityTrade.create(ref_no, account, buy_sell, instrument, attributes) 


end 
end 


我 们 的 DSL 迈 出 了 第 。 你 会 在 后 续 的 迭代 中 观察 到 enter code here TradeDSL 的 成 长 过 
程 ， 它 的 表现 力 会 oe 我 们 也 会 逐步 加 入 更 多 的 功能 。 


2.DSEL 门面 


TradeDSL 类 演 未 了 种 让 DSL 语 法 与 底层 实现 解 耦 的 重要 手法 。 一 方面 ， 这 个 类 癌 用 户 呈 现 
DSL 表 面 语法 ， 另 一 方面 ， 它 把 基本 抽象 包装 起 来 ， 在 实现 之 上 插入 一 个 间接 层 。 图 5-5 形 象 地 描 
绘 了 DSL 的 这 种 结构 。 


| DSL 门面 


在 基本 抽象 的 基础 
上 展现 DSL 的 表现 力 


一 SN 
> 提供 核心 实现 
基本 抽象 
SS 


区 
图 5-5 DSL 门面 既 向 用 户 提供 表现 力 充沛 的 API， 又 保护 核心 实现 结构 不 被 暴露 


切记 ; 在 设计 DSL 时 ， 一定 只 向 用 户 提 供 单一 的 交互 点 。 本 例 中 TradeDSL 类 担当 了 DSL 门面 角 
。 目前 这 个 门 玫 0 类 的 create 方法 ， 我 们 将 在 后 续 的 迭代 中 持续 地 
完善 这 个 使 它 能 够 满足 用 户 的 需求 。 现 在 最 紧迫 的 任务 是 解决 老 饱 对 DSL 中 创建 票 
据 部 分 的 不 满 。 这 和 有 种 时 候 来 点 不 按 常规 的 办 法 反而 管用 。 


5.2.2 来 点 猴子 补丁 
TradeDSL 类 的 下 一 步 进 化 目标 是 让 老 鲍 更 轻松 地 创建 村 据 。 他 想 按照 平常 在 交易 台 前 的 习惯 那 


样 ， 购 买 100 股 IBM 的 股票 。 下 面 是 一 段 创建 交易 的 DSL， 里 面 说 明了 被 交易 的 票据 详情 ， 我 们 就 
希望 能 把 脚本 写成 这 个 档 和 5 


TradeDSL.new,new trade 'T-12435 
'acc-123’, :buy, 100.shares. of(， IBM ' ) ， 
‘unitprice' => 200, 'principal' => 120000, 'tax' => 5000 


之 前 那些 老 鲍 看 不 懂 的 多 余 句 法 结构 不 见 了 ， 他 可 以 用 平常 习惯 的 语言 来 设立 票据 : 
100 ,shares .of('IBM' )。 老 鲍 很 满意 ! 那么 我 们 费 了 哪些 功夫 才 得 到 这 样 的 脚本 呢 ? 


站 Ruby 知 识 点 


猴子 补丁 (monkey patching) 指 在 已 有 的 类 中 加 入 新 的 属性 或 方法 。 Ruby 人 允许 打 ; 人 个 已 经 存 
引入 新 的 方法 和 属性 来 扩 增 类 的 行为 。 这 项 特性 极为 强大 ， 强 大 到 你 可 能 会 忍 不 住 小 
用 它 。 


代码 清单 5-5 实 现 了 shares 和 of 两 个 方法 ， 我 们 不 动 声色 地 把 它们 引入 到 Numeric 类 。 
Numeric 是 Ruby 语 言 内 建 的 类 ， 任何 Ruby 类 都 可 以 被 打开 并 引入 新 的 属性 和 方法 。 这 样 的 做 法 
被 称 为 猴子 补丁 (monkey patching) 。 很 多 批评 者 认为 不 应 该 鼓励 使 用 这 种 特性 ， 因 为 猴子 补丁 
威力 太 大 ， 使 用 的 时 候 不 得 不 注意 其 风险 和 陷阱 。 任何 一 本 正经 的 Ruby 教 科 书 (第 5.7 节 文献 1 ) 
都 会 警告 你 不 要 过 度 使 用 。 其 实 ， 只 要 谍 慎 使 用 ,猴子 补丁 可 以 给 DSL 插 上 计 膀 。 


代码 清单 5-5 ”使 用 了 猴子 补丁 的 票据 DSL 


require 'instrument' 
class Numeric @ 打开 Numeric 类 
def shares 四 新 方法 shares 
self 
end 


alias :share :shares 


def of instrument 加 新 方法 of 

if instrument .kind_of? String 
instrument = Instrument.new(instrument) 

end 
instrument .quantity = self 
instrument 

end 

end 


写 完 这 段 代 码 ， 交 易 DSL 的 第 一 次 迭代 就 告 一 段落 。 随 着 核心 抽象 的 各 部 分 逐渐 延伸 融合 ， 我 们 
DSL 的 表现 力也 越 来 越 强 。 第 5.2.1 小 节 开 头 那 段 代码 在 创建 票据 时 伴随 的 干扰 现在 已 经 被 清 开 
掉 。 不 过 与 老 鲍 想 要 的 自然 语言 表达 相 比 ， 我 们 的 实现 还 存在 不 少 句 法 怪异 的 地 方 。Ruby 有 办 法 
帮 有 我 们 更 进一步 ， 而 且 我 们 的 TradeDSL 门面 也 经 得 起 折腾 。 下 一 节 我 们 会 用 一 点 语法 糖衣 将 它 
装点 起 来 ， 打 扮 成 老 鲍 满 意 的 DSL 。 


5.2.3 设立 DSL 解释 器 


表现 力 要 多 强 才 算 足够 ? 这 个 问题 没有 固定 的 答案， 因 DSL 用 户 的 立场 而 寞 。 对 于 熟悉 Ruby 的 程 
序 员 来 说 ， 第 一 次 送 代 的 DSL 表现 力 已 经 足够 。 即 使 是 不 懂 编 程 的 领域 专家 ， 也 大 体 知道 写 的 是 
什么 ， 只 不 过 有 些 多 出 来 的 句法 结构 看 起 来 可 能 不 太 舒 服 而 已 。 因 为 精益 求 精 ， 也 因为 Ruby 语 言 于 
有 这 样 的 和 EB 力 ， 所 以 我 们 可 以 把 DSL 做 得 更 完美 一 些 ， 更 接近 老 鲍 在 交易 台 前 所 说 的 语言 


下 Ruby 知 识 点 A 


”如 何 利用 Ruby 的 “嵌入 文档 (here documents) 特性 定义 多 行 字符 串 。 通过 这 个 技巧 ， 可 
在 源 代 码 中 直接 定义 一 段 文 本 ， 而 不 必 另 行 写 到 代码 外 部 。 


。 如 何 定义 类 方法 。 类 方法 (或 单 例 方法 ) 是 Ruby 单 例 类 (singleton class) 的 实例 方法 。 详 
情 请 查阅 5.7 节 文献 [1] 。 


。evals 的 一 般 用 法 及 其 元 编程 用 途 。 在 运行 时 动态 地 求解 一 串 或 一 段 内 含 代 码 的 字符 ， 
Ruby 最 强大 的 特性 之 一 。Ruby 的 evals 有 好 几 种 形态 ， 适 用 于 不 同 的 上 下 文 。 


。 Se 。Ruby 内 置 支持 正则 表达 式 ， 对 模式 匹配 和 文本 处 理 有 极 大 的 帮 
助 。 


六 


1. 加 入 解释 器 


我 们 在 第 5.2. 人 开发 了 相当 有 表现 力 的 语法 ， 能 出 色 地 反映 领域 语义 。 不 过 
对 老 鲍 来 说 ， 还 是 技术 味 太 浓 了 一 点 ， 他 习惯 于 说 更 流畅 的 交易 语言 。 
第 二 次 迭代 我 们 准备 推出 一 个 解释 器 来 翻译 老 鲍 的 语言 ， 把 他 的 话 去 芜 存 普 ， 提 取 构 建 抽 象 所 需 
的 必要 信息 。 本 次 迭代 完成 之 后 ，DSL 脚 本 看 起 来 应 该 是 这 个 样子 : 
str = <<END_OF_STRING 
new_trade 'T-12435' for account 'acc-123' 
to buy 100 shares of 'IBM', 
at UnitPrice=100, Principal=12000, Tax=500 
END_OF_STRING 
puts TradeDSL.trade str 
DSL 的 核心 抽象 上 一 次 迭代 时 就 已 经 准备 就 绪 ， 我 们 现在 开始 动手 制作 语法 糖衣 。 我 们 的 交易 处 
理 语 言 正 按照 计划 稳步 前 进 进 。 
要 让 代码 变 成 上 面 的 样子 ， 我 们 需要 往 TradeDSL 类 里 加 些 什么 东西 呢 ? 5.2.2 节 打造 的 门面 
TradeDSL ， 经 过 第 二 次 送 代 变 成 代码 清单 5-6 的 样子 。 类 中 设立 了 一 个 小 小 的 解释 器 ， 负 责 将 用 
户 输入 处 理 之 后 再 传递 给 SecurityTrade 。 
代码 清单 5-6 ”在 Ruby 中 将 交易 DSL 做 成 解释 器 的 样子 (第 二 次 迭代 ) 


require 
require 


'security_trade' 
"numeric' 


class TradeDSL 
Class << Self 
def const_missing(sym) 
sym.to_s.downcase 
end 


@ 拦截 未 定义 的 常量 


def trade(str) 
TradeDSL.new.interpret(str) 


end 


end 
end 
def new_ trade(ref_no, account, buy_sell, instrument, attributes) 
SecurityTrade.create(ref_no, account, buy_sell, instrument, attributes) 
end 
def interpret(input) 
instance_eval parse(input) 外 提供 隐 式 上 下 文 给 new_trade 
end 
def parse(dsl_string) 四 处 理 用 户 输入 
dsl = dsl_ string.clone 
dsl.gsub!(/=/, '=>'" 
dsl.sub!(/and /, '') 
dsl.sub!(/at /, '') 
dsl.sub!(/for account /, ',') 
dsl.sub!(/to buy /, ', :buy, ') 
dsl.sub!(/(\d+) shares of ('.*?')/, '\1.shares.of(\2)') 
dsl.sub!(/(\d+) share of ('.*?')/, '\1.shares.of(\2)') 
puts dsl 
dsl 
end 


与 其 直接 解释 每 一 行 代码 做 了 什么 ， 不 如 先 看 一 幅 示意 图 。 图 5-6 描 绘 了 老 鲍 的 语言 被 解释 的 全 部 


new_trade 'T-12435' for account 'acc-123" 
语法 分 析 => to buy 100 shares of ‘IBM', 
at UnitPrice=100, Principal=12000, Tax=500 


(转换 为 一 次 方法 调用 ) 


PradeDsL 的 上 下 文 给 。 去 除 无 用 成 分 
待 求 解 代 码 。 转换 为 命名 参数 
。 预 处 理 以 产生 票据 DSL 
\ trade 'T-12435' ,'acc-123' , :buy, 
100.shares.of('IBM'), UnitPrice=>100, Principal=>12000, Tax=>500 
:onst_missing 将 符号 转换 为 字 


符 串 ， 字 符 串 之 后 会 被 映射 为 方法 


y_trade 的 实例 


图 5-6 一 段 TradeDSL 脚本 示例 被 代码 清单 5-6 的 程序 解释 并 生成 Ruby 对 象 的 全 过 程 。 经 由 DSL 
解释 器 生成 了 一 个 security_trade 实例 


请 把 这 幅 图 与 代码 清单 5-6 对 照 着 来 理解 。 你 能 发 现 其 中 用 了 第 4 章 介绍 过 的 哪些 手法 吗 ? 还 真 不 
少 ， 三 不 五 时 就 改头换面 地 冒 出 来 一 个 。 下 面 的 列表 可 以 帮 你 发 现 几 个 : 


。Cconst_missing 方法 @ 用 了 运行 时 元 编程 ( 见 4.4 节 ) 手法 ， 它 将 任何 未 定义 的 常量 转换 为 


字符 串 ; 


。interpret 方法 中 的 jnstance_eval @ 将 TradeDSL 的 一 个 实例 设立 为 执行 new_trade 
方法 的 隐 式 上 下 文 〈( 见 4.2.1 节 ) ，; 


。parse 方法 使 用 正则 表达 式 @ 处 理 用 户 输入 ， 将 输入 转换 为 符合 new_trade 方法 调用 形式 
的 字符 串 。 


想 更 深入 了 解 Ruby 元 编程 技术 ， 请 参阅 第 5.7 节 文献 [5] 。 
2. 像 老 鲍 那 样 说 话 


E 


现在 从 DSL 用 户 的 角度 回顾 一 遍 前 面 的 工作 。 用 户 现在 可 以 用 他 日 常 业务 活动 中 的 语言 写 出 生成 
新 交易 的 DSL 脚 本 。 我 们 在 DSL 中 插入 了 一 些 无 意义 的 词汇 ， 以 尽量 符合 一 般 领域 户 的 用 语 习 
惯 。 作 为 用 户 ， 老 鲍 可 以 把 DSL 文本 写 到 一 个 文件 内 ， 文 本 经 过 加 载 、 处 理 之 后 生成 
SecurityTrade 的 实例 。 即 使 交易 数据 来 自 上 游 的 营业 系统 ， 他 照样 可 以 用 这 DSL 生 成 
SecurityTrade 实例 并 存 入 数据 库 。 


下 一 小 节 我 们 继续 改进 DSL， 并 纳入 一 些 业 务 规则 ， 一 方面 便利 于 程序 员 用 户 ， 男 一 方面 其 他 的 
领域 用 户 也 可 在 老 鲍 生成 的 交易 上 增补 规则 ， 用 于 后 续 的 交易 环 广 。 


5.2.4 以 装饰 器 的 形式 添加 领域 规则 


虽然 老 鲍 满意 目前 的 交易 生成 方式 ， 但 他 对 后 续 的 交易 环 让 仍 有 些 担心 ， 因 为 后 面 要 在 交易 上 补 
充 业 务 规则 。 我 们 答应 老 鲍 立即 着 手 这 个 问题 ， 一 旦 这 部 分 语言 的 表现 力 过 关 就 拿 给 他 看 。 那 么 
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我 们 现在 就 开始 新 的 迭代 ， 目 标 是 增加 DSL 功能 并 充实 交易 的 业务 规则 。 
下 Ruby 知 识 识 点 
。 如 何 定义 、 使 用 Ruby 块 。 Ruby 语 言 的 块 (block) 被 用 于 实现 lambda 和 闭 包 。 


。 如 何 通 过 模块 实现 mixin。 Ruby 模 块 (module) 是 一 种 组 织 代码 制品 的 方式 。 类 可 以 通过 
mixin 的 形式 包含 模块 及 其 中 的 制品 。 


。 如 何 串 联 不 同 的 mixin 来 设计 装饰 器 


0 。 在 Ruby 语 言 只 要 对 象 实现 了 与 某 消 息 同 名 的 方法 ， 就 可 以 响应 该 消息 
是 否 实现 了 特定 方法 -不作 态 检查 ;可 在 运行 时 修改 对 象 。 只 要 能 学 鸭子 叫 ， ，， 
于 是 只 了 鸭子。 
1. 交 易 DSL 现 状 回顾 
我 们 不 能 一 味 埋 头 改进 ， Eb 之 前 ， 不 妨 先 回 顾 一 下 现在 所 处 的 位 置 。 图 5-7 
一 目 了 然 地 展现 了 目前 的 进展 和 后 续 的 任务 。 我 们 开发 的 交易 生成 D5L 会 产生 一 个 
SecurityTrade 实例 ， | 充实 到 交易 中 ， 可 考虑 将 业务 规则 建 模 为 DSL 。 


a 
交易 生成 脚本 (DSL) 一 eeaeree 
纳入 DSL 的 候选 项 
7 一 


计算 现金 价值 可 插 拔 的 业务 规则 


图 5-7 我 们 已 经 开发 了 生成 交易 的 DSL， 现 在 要 增加 用 来 计算 交易 现金 价值 的 业务 规则 。 我 们 准 
备 把 业务 规则 也 做 成 DSL 

易 被 送 到 证 券 交易 机 构 的 后 台 时 ， 将 被 附 上 其 现金 价值 和 静态 数据 资料 ， 为 进入 处 理 流程 的 
壹 环节 做 好 准备 。 第 4.2 2 小 节 已 介 绍 过 如 可 计算 交易 的 现金 价值 ， 也 叫做 净 结算 价值 。 后 台 接 
交易 之 后 ， 需要 授 用 领域 规 则 来 计 复 六 易 的 现 全 介 值 。 领 域 规则 因 交 易 市 场 、 票 据 类 型 等 各 
素 而 异 。 为 免 讨 论 过 于 复杂 ， 我 们 假设 有 组 固定 的 规则 。 为 了 在 生成 的 交易 上 实施 这 组 规 
我 们 需要 扩展 现 有 的 DSL 。 


2. 实 现 领 域 规则 
以 下 规则 适用 于 老 鲍 生 成 的 交易 : 
交易 的 现金 价值 由 基本 价值 总 额 、 税 费 总 额 、 佣 金 总 额 计 算得 出 。 


。 如 果 输 入 的 交易 流 含有 以 上 总 额 中 的 任意 项 ， 该 项 将 按 输入 的 数额 计算 ， 否 则 按照 以 下 规则 
对 每 笔 交 易 分 别 计算 后 汇总 得 出 。 


。 以 下 业务 规则 适用 于 所 有 交易 : 
。 基本 价值 总 额 为 单价 与 数量 的 乘积 ， 单 价 、 数量 都 是 交易 对 象 的 一 部 分 


后 名 
收 
和 
则 ， 
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当 交 
等 
到 
! 因 | 


。 税 费 按 基本 价值 总 额 的 固定 比例 计算 。 


。 佣金 按 基 本 价值 总 额 的 固定 比例 计算 。 


这 几 条 规则 实现 之 后 ， 用 户 使 用 DSL 充 实 交 易 的 情形 如 下 所 示 。 


代码 清单 5-7 ”交易 DSL 的 用 法 


require 'trade_ds1l' 


require 'tax_fee' 
require 'broker_commission' 


str = <<END_OF_STRING 
to buy 


END_OF_STRING 


TradeDSL.trade str do |t| 


t.principal = cv.p 
t.tax = cv.t 
t.commission = cv.c 
end 
t 
end 


t.cash_value = cv.value 上 @ 块 内 发 生 的 副 作 


require 'cash_value calculator' 


new_trade 'T-12435' for account 'acc-123' 


100 shares of 'IBM', 


at UnitPrice = 100 


@ 为 了 副作用 而 使 用 Ruby 块 


Cashvaluecalculator .new(t) .with TaxFee，BrokerCommission do |cv| 四 以 mixin 手 法 实现 的 装饰 器 


TradeDSL .trade(str) 
SecurityTrade 实例 在 块 


乎 语言 习惯 的 Ruby 编 程 方法 。 


用 的 结果 。 


生成 的 SecurityTrade 实例 被 传递 到 一 个 Ruby 甘 
内 被 修改 @ 的 副作用 ， 完 成 了 交易 充实 过 程 。 以 上 写法 是 常规 的 、 合 
这 段 脚本 的 表现 力 是 简洁 的 Ruby 语 言 和 我 们 加 入 的 领域 语义 共同 作 


件 ， 这 一 点 也 值得 注意 。 月 


[mun 


@@。 这 样 的 设计 手法 就 是 我 人 


件 就 是 附着 在 主体 类 cashvalueCcalculator 上 的 装饰 器 。 
我 们 还 要 对 TradeDSL .trade 方法 做 一 点 改动 才能 让 它 接受 一 个 块 作为 参数 。D5L 的 其 他 部 分 不 


四 ， 然 后 作为 


上 二 的 代码 将 TaxFee 和 Brokercommission 的 计算 逻辑 单独 抽象 出 来 ， 做 成 可 插 拔 的 DSL 部 
户 需 要 什么 部 件 ， 就 把 什么 部 件 连接 到 CashValLueCcalculator 类 
] 在 第 4.2.2 小 节 讨 论 过 的 ， 所 谓 的 “基于 mixin 的 编程 ”。 一 个 个 mixin 


代码 清单 5-8 ”交易 DSL 的 Ruby 实 现 ， 为 了 副作用 而 使 用 Ruby 块 (第 三 次 迭代 ) 


require 'security_trade' 
require 'numeric' 


class TradeDSL 
class << self 
def const_missing(sym) 
sym.to_s.downcase 
end 


def trade(str) 


end 
end 


end 


yield TradeDsL .new.interpret(str) if block_given? @ 处 理 块 ， 得 到 副 作 


代码 清单 5-7 还 留 下 了 一 点 未 解决 的 地 方 ，Ccashvaluecalculator 实例 上 很 明显 的 附加 了 各 和 
装饰 器 ， 但 我 们 还 没 搞 清楚 它们 的 实现 。 


3. 附 加 装饰 器 的 Ruby DSL 


代码 清单 5-7 向 你 演示 了 怎样 在 核心 抽象 上 装点 像 TaxFee 和 BrokerCommission 那样 的 语法 糖 
衣 。 而 且 与 静态 语言 不 同 ， 我 们 的 装点 工作 可 以 借助 元 编程 的 力量 在 运行 时 巧妙 地 完成 。 下 面 的 
代码 清单 完整 地 实现 了 对 给 定 的 交易 计算 其 现金 价值 的 DSL 。 


代码 清单 5-9 ”计算 交易 的 现金 价值 


class CashValueCalculator 
attr_reader :trade 


attr_accessor :p, :t, :Cc 


def initialize(trade) @ 简洁 、 含 义 清晰 的 句法 
@trade = trade 
@p = [@trade.principal, 
@trade.unitprice * @trade.instrument.quantity].find do |m| 
not m.nil? 
end 
@t = @trade.tax unless @trade.tax.nil? 
@c = @trade.commission unless @trade.commission.nil? 
end 


def with(*args) 四 动态 地 合成 各 mixin 
args.inject(self) { lacc, val|l acc.extend val } 
yield self if block_given? 

end 


def value 
@p 
end 
end 


module TaxFee 
def value 
@t = @p * 0.2 if @t.nil? 
super + @t 
end 
end 


module BrokerCommission 
def value 
@c = @p * 0.1 if @c.nil? 
super + @c 
end 
end 


成 了 ! 现在 我 们 的 DSL 外 有 老 鲍 能 理解 的 自然 语法 ， 内 有 领域 i 言 表 述 的 清晰 实现 。5.1 节 所 述 的 
动态 类 型 语言 三 大 特质 都 体现 在 我 们 的 Ruby DSL 上 ， 表 5-2 对 此 作 了 简要 总 结 
表 5-2 动态 语言 和 Ruby DSL 


特质 代码 清单 5-9 中 用 到 的 Ruby 特 性 


易 读 性 灵活 柔顺 的 语法 、 数 组 字面 量 、 可 选 的 圆 括号 ， 这 几 项 特性 使 initialize 方法 @ 内 的 代码 清晰 简明 。 领 域 
规则 被 直 白 地 表达 出 来 ， 易 于 读者 理解 ， 如 果 输 入 交易 时 一 并 输入 了 现金 价值 的 构成 要 素 ， 优 移 按 照 输入 


潮 


值 计算 ， 否 则 从 交易 中 算出 
多 的 现金 价值 总 客 混入 到 cashvaluecalculator 实例 的 各 模块 隐 含 地 计算 得 出 。 代 码 清 单 5-7 的 DSL 朋 
很 好 地 抽 荣 了 现金 净值 的 具体 计算 过 程 ， 同时 广 青 楚 地 告诉 用 户 计算 中 涉及 哪些 构成 要 素 。 实 际 上 
希望 最 后 的 净值 算 入 哪些 要 素 ， 就 提供 哪些 要 素 


p 


注意 TaxFee 和 Brokercommission 的 value 方法 都 是 在 没有 任何 静态 继承 关系 的 情况 下 使 用 了 super 关键 3 
觅 子 类 型 这 是 对 鸭子 类 型 的 一 次 应 

只 要 插入 任何 一 个 拥有 value 方法 的 模块 ， 都 能 顺利 完成 计算 
元 编程 with 方法 @ 起 到 了 组 合子 的 作用 ， 通 过 在 运行 时 扩展 各 参与 模块 ， 实 现 对 各 mixin 的 组 合 


交易 DSL 的 Ruby 实 现 至 此 全 部 完成 。 我 在 本 节 开 头 提 出 一 个 待 解决 的 现实 用 例 ， 然 后 向 你 演示 基 
于 DSL 的 问题 解决 方式 。 现 在 我 们 看 到 了 结果 ， 并 为 打算 建 模 的 领域 功能 找到 了 最 自然 的 实现 方 
式 。 借 助 Ruby 语 言 的 灵活 语法 、 网 子 类 型 和 元 编程 能 力 ， 最 终 创 造 出 一 种 领域 专家 能 完全 领会 的 
专用 语言 。 我 们 一 边 改 进 实现 ， 一 边 着 重 学 习 了 那些 使 Ruby 成 为 优秀 内 部 DSL 实 现 语言 的 特性 。 
这 样 安排 不 是 为 了 卖弄 Ruby 的 能 力 ， 而 是 反复 向 你 演示 在 基于 DSL 的 开发 方式 下 ， 如 何 配合 强力 
的 编程 语言 去 创造 具有 扩展 性 的 抽象 。 


F 一 节 将 探讨 男 一 种 DSL 实 现 语言 ， 它 像 Ruby 一 样 具 有 动态 类 型 和 强大 的 元 编程 能 力 ， 而 且 它 可 
以 和 JVM 更 紧密 地 集成 。 我 们 在 第 2 章 和 第 3 章 设 计 指令 处 理 DSL 的 时 候 已 经 用 过 它 一 Groovy 语 
言 。 现 在 我 们 准备 再 对 之 前 的 实现 做 一 些 改进 。 


二 {有 没有 想 过 既然 平常 的 开发 多 多 半 只 会 用 一 种 语言 ， 那 么 我 们 为 什么 要 学 习 那 么 多 种 语言 
呢 ? 在 现实 的 开发 中 ， 最 切合 解答 域 需要 的 语言 才 是 最 理想 的 DSL 实 现 语言 。 请 记 住 DSL 的 语法 
和 语义 才 是 最 重要 的 决定 因素 ; 选择 哪 种 实现 语言 只 是 手段 而 已 。 你 学 到 手 的 套路 越 多 ， 设 计 
DSL 的 时 候 能 使 的 招式 就 越 多 。 


5.3 指令 处 理 DSL: 精益 求 精 的 Groovy 实 现 


以 语言 的 能 力 来 说 ，Groovy 与 Ruby 较 为 接近 ， 都 支持 鸭子 类 型 ， 也 都 有 很 强 的 运行 时 元 编程 的 能 
力 。 两 种 语言 的 主要 区 别 在 于 Groovy 共 享 了 Java 的 对 象 模型 ， 因 此 Groovy 的 无 颖 集成 能 力 比 Ruby 
强 。 实 际 上 ， Groovy 本 身 就 党 被 作为 Java 语 言 的 一 种 DSL 来 宣传 。 因 此 ， 如 果 你 的 DSL 需 要 融入 
Java 应 用 的 大 环境 ，Groovy 是 一 种 合适 的 实现 语言 。 作 为 DSL 的 宿主 语言 ，Ruby 和 Groovy 的 实现 
能 力 相 近 。 但 由 于 Groovy 能 共享 Java 的 对 象 系统 ， 它 的 集成 能 力 更 强 一 些 。 


本 方 我 们 再 次 翻新 之 前 在 第 2 章 和 第 3 章 先 后 实现 、 加 强 过 的 指令 处 理 DSL。Groovy 有 一 些 与 Ruby 
相似 的 特性 ， 我 们 上 一 节 用 Ruby 实 现 交易 DSL 时 已 经 计 i 华 过， 本 节 不 再 着 重 介绍 。 本 节 我 们 的 讨 
论 重点 是 Groovy 一 项 特别 突 出 的 元 编程 特性 ， 你 在 设计 内 部 DST 的 时 候 会 党 党 到 它 。 


在 正式 展开 讨论 之 前 ， 我 们 将 简要 回顾 指令 处 理 DSL 的 前 几 次 迭代 ， 分 析 其 中 的 不 足 ， 然 后 我 们 
寺 续 改进 ， 直 至 最 后 版 本 的 完善 实现 。 


5.3.1 指令 处 理 DSL 的 现状 


我 们 已 经 讨论 过 多 种 Groovy 实 现 选项 ， 简 要 总 结 如 图 5-8 所 示 。 


第 2 章 (2.2.3 节 ) 二 > 通过 Grcovyshel1 由 Groovy 解 释 器 执行 的 Groovy DSL 


第 3 章 (3.2.1 节 ) > 通过 Java 6 脚本 引擎 执行 的 Groovy DSL 


第 3 章 (3.2.3 节 ) = 通过 GroovyCc ;Loader 由 Java 虚 拟 机 执行 的 Groovy DSL 
图 5-8 ”前 面 章 节 中 尝试 过 的 多 种 指令 处 理 DSL 实 现 方案 


通过 GroovyShe11 在 Groovy 环 境内 执行 DSL， 我 们 在 第 2.2.3 小 节 从 头 到 尾 完成 过 一 个 Groovy 实 
现 。GroovyShe11 用 它 的 evaluate 方法 执行 接收 到 的 DSL 定 义 和 脚 本。 在 第 3.2.1 小 市 ， 我 们 
修改 了 DSL， 并 改 用 Java 6 脚本 引擎 API 来 执行 。 最 后 在 第 3.2.3 小 节 ， 我 们 用 更 好 的 选择 取代 了 第 
3.2.1 小 节 的 方案 ， 不 再 假手 脚本 引擎 的 独立 的 Java 类 装载 器 ， 改 为 在 Java 应 用 中 通过 

GroovyClassLoader 直接 加 载 指令 处 理 DSL 的 脚本 。 


我 们 尝试 过 的 几 种 方案 都 有 一 处 共同 的 缺点 ， 这 与 Groovy 元 编程 概念 的 用 法 有 关 。 本 节 我 们 将 继 
续 改 进 ， 尝试 建立 生 好 的 Groovy 元 编程 模型 来 驱动 DSL o 


5.3.2 控制 元 编程 的 作用 域 
在 前 面 的 方案 中 ， 我 们 向 已 有 的 Groovy 类 中 注入 方法 ， 做 法 是 在 相应 类 的 MetaCclass 中 增加 方 


法 。 


站 Groovy 知 识 点 


。ExpandoMetaClass 及 其 元 编程 原理 。ExpandoMetaclass 是 一 种 特殊 的 Groovy 元 编 
程 结构 ， 允 许 使 用 者 通过 简洁 的 闭 包 语法 ， 动 态 地 增加 方法 、 构 造 器 、 属 性 和 静态 方法 。 


高 | 工 


而 


。 闭 包 (closure) 和 委托 (delegate) 。Groovy 语 言 的 闭 包 是 在 一 个 地 方 定义 ， 和 
方 执行 的 lambda， 用 法 很 像 Ruby 的 块 (block) 。 委 托 对 象 一 般 是 闭 包 所 从 属 
在 运行 时 更 改 。 


。 Groovy 语 言 的 类 声明 。 类 似 于 Java， 但 可 省 去 繁琐 的 类 型 声明 ， 且 Groovy 的 语法 较 简 洗 
。 Groovy 语 言 的 Category 特 ; 性 如 何 控制 元 编程 的 作用 域 。 Category 是 Groovy 语 言 除 


ExpandoMetaClass 之 外 的 另 一 种 元 编程 手段 。 程 序 中 对 元 对 象 的 改动 可 以 通过 Category 
控制 其 作用 范围 。 


是 - 
3 
< 一 | 
军 芯 
[a 
可 


| 


口 


我 们 在 代码 清单 3-1 里 面 ， 用 了 下 面 两 行 代 码 向 Integer 类 注入 shares 和 of 方法 : 


Integer.metaClass.getShares = { -> delegate } 
Integer.metaClass.of = { instrument -> [instrument, delegate] } 


因为 做 了 这 样 的 铺垫 ， 我 们 才 得 以 写 出 下 面 的 DSL 脚 本 ( 取 自 代码 清单 3-2) : 


neworder ,to.buy(100.shares.of('IBM' )) { 
limitPrice 300 
allOrNone true 
valueAs {qty，unitPrice -> qty * unitPrice - 500} 


我 们 进行 注入 的 时 候 利用 了 Groovy 的 ExpandoMetaClass ， 通 过 它 可 以 在 运行 时 向 已 有 的 类 中 
添加 方法 、 属 性 、 构 造 器 以 及 静态 方法 。 Di 的 问题 是 ， 注 入 到 类 中 的 属性 
和 方法 是 全 局 有 效 的 ， 程 序 会 改变 JVM 内 所 有 线程 中 的 全 部 类 实例 的 行为 。 
ExpandoMetaClass 把 你 对 类 的 改动 公开 给 所 有 用 户 。 但 凡 像 这 样 可 能 波及 其 他 人 和 其 他 程序 
的 情况 ， 都 应 该 三 思 而 后 行 。Ruby 的 猴子 补丁 也 有 同样 的 全 局 作用 问题 ， 一 样 会 对 其 他 用 户 产 生 
附带 的 影响 ， 而 且 不 同 用 户 对 于 类 和 方法 的 定义 有 着 不 同 的 预期 ， 彼 此 之 间 可 能 不 相 容 。 
Groovy 拥 有 对 元 编程 作用 域 进行 细 粒 度 控制 的 能 力 ， 这 是 你 在 实现 Groovy DSL 了 时 应 该 充分 利用 的 
一 个 特点 。 因 为 这 项 特性 的 重要 性 ， 我 们 会 单独 用 一 市 的 篇 幅 来 讨论 Groovy 实 现 。 
1.Groovy 的 元 对 象 协 议和 Category 特 性 
Groovy 的 元 对 象 协议 (MOP) 是 另 一 种 注入 手段 ， 可 以 有 选择 、 有 节制 地 对 已 有 类 进行 注入 。 用 
这 种 方式 注入 的 属性 并 不 会 完全 烘 露 给 全 局 ， 而 是 将 其 作用 域 限 制 在 一 定 范 围 的 代码 块 之 内 。 程 
序 员 在 一 种 称 为 Category 的 特殊 类 中 定义 准备 注入 的 新 方法 。 Category 在 Groovy DSL 的 创作 中 应 
用 得 非常 普遍 。 〈 关 于 Groovy 语 言 Category 特 性 的 详细 解释 请 参阅 第 5.7 节 文献 [2]。) 下 面 我 们 就 
要 利用 Category 特 性 来 改造 指令 处 理 DSL 了 “。 代 码 清单 5-10 用 Groovy 语 言 对 0rder 的 基本 抽象 进 
行 了 建 模 。 

代码 清单 5-10 ”Groovy 语 言 实现 的 Order 类 
class Order { 

def name 

def quantity 

def allorNone = false 

def limitpPrice 

def valueClosure 

def Order(stockName, qty) { 


name = stockName 
gquantity = qty 


def limitpPrice(price) {limitPrice = price} 


def allorNone() {allOorNone = true} 


def valueAs(closure) { 


valueClosure = closure.clone() 确保 线程 安全 
valueClosure.delegate = 
[qty: quantity，unitPrice: limitPrice]  ” 绑 定 变 
String toString() { 

"stock: $name, number of shares: $quantity, 

allOrNone: $allOrNone, limitPrice: $1limitPrice, 

valueAs: ${valueClosure()}" 
} 
我 们 的 DSL 考 虑 让 用 户 使 用 自然 的 陈 还 广 天 -表达 他 禹 请 藉 人 或 志 国 的 股票 数量 ， 例如 类 
似 “200 ,IBM. shares ”的 写法 。 我 们 会 运用 Groovy 语 言 的 Category 特 性 来 实现 这 种 表达 方式 ， 不 
过 首先 需要 一 个 辅助 类 的 帮忙 。 下 面 定 义 的 Stock 类 是 对 此 表达 形式 的 抽象 ， 指 令 的 其 余 信 息 可 
以 放 在 一 个 闭 包 里 传递 给 它 。 


class Stock { 
def order 


Stock(orderObject) { 
order = orderObject 


} 


def shares(closure) { 
closure = closure.clone() 确保 线程 安全 
closure.delegate = order ”将 指令 相关 信息 交 给 委托 对 象 
closure() 
order 


} 


} 


与 其 直接 说 明 下 一 步 如 何 实现 ， 倒 不 如 先 让 你 看 看 改造 完成 之 后 的 指令 处 理 DSL 是 什么 样子 ， 到 
时 候 你 胸有成竹 ， 才 更 容易 理 清 实现 的 思路 。 老 鲍 将 使 用 这 样 的 脚本 来 发 出 他 的 股票 交易 指令 : 


代码 清单 5-11 一 段 指令 处 理 DSL 的 脚本 


buy 200,.G00G.shares { 
limitPrice 300 
allLorNone( ) 
valueAs {qty * unitPrice - 500} 


buy 200.IBM.shares { 
limitPrice 300 
allOorNone() 
valueAs {qty * unitPrice - 500} 


buy 200.MSOFT.shares { 
limitPrice 300 
allOorNone() 
valueAs {qty * unitPrice - 500} 


从 中 可 以 看 出 我 们 需要 给 Integer 类 加 上 一 些 方法 ， 这 一 次 我 们 要 通过 Category 来 实现 。 
2. 基 本 的 DSL 


下 面 是 第 一 个 Category 的 代码 ， 它 的 作用 是 帮 有 我 们 构建 不 同 的 Stock 实例 。 
代码 清单 5-12 ”通过 Category 在 Integer 上 增加 方法 


class StockCategory { 
static Stock getG0O0G(Integer self) { 
new Stock(new Order("G00G", self)) 


static Stock getIBM(Integer self) { 
new Stock(new Order("IBM", self)) 
} 


static Stock getMSOFT(Integer self) { 
new Stock(new Order("MSOFT", self)) 


由 这 段 StockCategory 的 定义 可 知 ， 调 用 200 .IBM 将 返回 一 个 Stock 实例 。 然 后 我 们 在 
Stock 实例 上 调用 shares 方法 ， 把 别 的 指令 详情 放 在 一 个 闭 包 里 ， 作 为 参数 传递 给 shares 方 
法 。 在 Stock 类 的 定义 中 ， 将 shares 所 接收 闭 包 的 委托 对 象 设置 为 一 个 order 实例 。 这 样 ， 代 
码 清和 人 11 中 出 现 的 LimitPrice 、allLlorNone 、valueAs 的 上 下 文 就 部 有 了 着 落 。 在 现实 的 
项 目 中 ， 代 码 清 单 可 以 根据 数据 库 中 的 股票 列表 自动 生成 。 


至 此 指令 处 理 DSL 的 基本 引擎 已 经 就 绪 ， 我 们 还 可 以 在 最 后 加 上 一 个 Category 让 脚本 更 有 条 理 ， 然 
后 装 好 Java 启 动 入 口 就 算 顺 利 完工 。 
5.3.3 收尾 工作 


请 你 再 看 一 遍 代码 清单 5-11。 脚 本 中 每 一 条 指令 都 以 buy 开 头 ， 也 就 是 说 ， 我 们 需要 向 Groovy 的 
Script 类 注入 一 个 buy 方法 。 我 们 依 | Category 来 实现 
class OrderCategory { 


static void buy(Script self, Order o) { 
println "Buy: $o" 


static void sell(Script self, Order 0) { 
println "Sell: $o" 


作为 演示 ， 我 们 只 是 简单 地 将 用 户 输 入 的 指令 打印 出 来 ， 供 检查 各 属 
项 目 中 ， 这 个 地 方 应 该 奉 换 为 有 意义 的 相关 4 领域 地 . 


做 完 这 一 步 ，Groovy 的 DSL 实 现任 务 就 完成 了 。 现 在 只 需要 准备 一 个 负责 执行 DSL 脚 本 的 执行 
器 ， 供 Java 应 用 程序 调用 。 执 行 DSL 的 Groovy 代 码 如 下 ， 其 中 导入 了 之 前 定义 的 两 个 Category: 


class DslRunner { 
static runDSL(ds1L) { 
use(OrderCategory，StockCategory) { @ 导入 相关 Category 的 定义 
new GroovyClassLoader().parseClass(dsl as File).newInstance().run() 
上 
} 


性 是 否 正确 设置 。 在 实际 的 


} 


T 


注意 代码 中 的 use {} 块 @@， 我 们 通过 Category 注 入 到 现 有 类 的 方法 ， 仅 在 这 个 块 的 作 
效 。 最 后 我 们 在 Java 应 用 程序 内 调用 DslRunner : 


域内 有 


public class LaunchFromJava { 
public static void main(String[] args) { 
DslRunner .runDSL("neworder .ds1"); 


大 功 告 成 ! 一 段 Groovy 的 DSL 实 现 就 在 你 眼前 化 肾 为 嵘 。 图 5-9 形 象 地 说 明了 DSL 脚 本 被 翻译 为 语 
义 模型 ， 然 后 被 送 入 执行 阶段 的 过 程 。 


(各 对 象 ) 


肯 令 处 理 DSL 


4 


(各 元 对 象 ) “ 


< 一 一 DSL 天 本 — 一 一 


StockCategory | 


\ 


OrderCategory ] 


语义 模型 


运行 期 间 生 成 、 组 合 代 码 


修改 后 的 stock 对 象 


修改 后 的 order 时 多 > 


可 执行 的 字 节 码 


一 人 执行 模型 一 大 


图 5-9 从 Groovy DSL 脚 本 到 语义 模型 ， 再 到 执行 模型 的 转化 过 程 


Groovy DSL 的 进化 之 旅 到 这 里 告 一 段落 。 下 一 


风格 的 DSL 。 
5.4 思路 迎 异 的 Clojure 实 现 


本 节 将 为 
如 何 定义 


立 若 干 小 的 领域 


你 展 
的 ， 


同样 的 用 
的 编 届 程 范 


例 已 经 
式 与 Clojure 完 全 不 一 样 。 Ruby 是 一 种 面向 对 
言 ， 它 的 宏 


手段 。Clojure 基 本 是 一 种 函数 式 语 
民 大 差异 。 即 使 用 例 相 同 ， 基 于 Clojure 的 DSL 和 基于 Ruby 的 DSL 实 


实现 思路 会 与 Ruby 或 Groovy 有 和 


展示 如 何在 Clojure 语 言 
请 翻阅 第 4.2.2 小 节 的 插入 栏 。) 
象 ， 然 后 利用 Clojure 的 组 


节 ， 我 们 将 发 挥 Clojure 的 特长 ， 实 现 一 种 完全 不 同 


' 实 现 计算 交易 的 现金 价值 。 (假如 记 不 清 交易 的 现金 价值 是 


我 们 照例 采用 基于 DSL 的 实现 方式 ， 自 底 向 上 先 建 


合子 把 它们 组 合 起 来 。 


和 第 5.2.4 小 万 中 用 Ruby 语 言 实现 过 一 遍 ， 那 我 们 为 什么 要 重复 呢 ? 因为 Ruby 语 言 


象 语言 ， 运 行 时 元 编程 是 其 主要 的 DSL 实 现 


现 起 来 完 
宿主 语言 


-0 决策 


详细 介绍 ,i 


参阅 第 5.7 节 文献 [6]。 


实 特 性 具有 很 强 的 编译 时 元 编程 能 力 。 显 然 Clojure 的 


全 可 能 是 两 回 事 。 所 以 ， 我 们 在 此 特意 选择 与 Ruby 范 例 相同 的 用 例 ， 向 你 说 明 选 择 不 同 
的 影响 。 表 5-3 列 举 了 Clojure 相 对 


于 Ruby 的 关键 差异 点 。 对 Clojure 语 言 本 身 的 


表 5-3 ”用 Clojure 语 言 实现 DSL 的 时 候 需 要 改变 思维 方向 


Ruby 语 言 的 DSL 实 现 


Clojure 语 言 的 DSL 实 现 


及 各 条 忆 使 


以 对 象 和 模块 为 ) 
2 模块 组 合 在 一 起 


method -missing 


DSL 简 ; 


性 芬 对 象 ， 


戎 虚 如 何 通 过 元 编程 把 运行 时 的 对 “| 以 
(sequences) 的 lambda 操 作 来 组 织 各 函数 


例 中 的 函数 为 思考 对 象 ， 考 虑 如 何 通过 Clojure 序 列 


、const_missing 等 技巧 ， 


吉 有 表现 力 


以 及 其 他 动态 


运用 宏 将 DSL 语法 转换 为 一 般 的 Clojure 语 法 成 分 ， 转 换 完全 在 


区 


编译 时 完成 


语言 


Ruby 或 Groovy 语 言 实现 的 DSL， 其 语法 风格 不 


定 接近 于 宿主 | Clojure 语 言 实现 的 DSL， 因 为 仍然 以 “S 表 达 式 ”为 结构 基础 ， 其 
语法 风格 接近 于 Clojure 


我 强烈 建议 你 先 把 前 症 


两 者 的 差异 


更 深 的 体会 。 


5.4.1 建立 领域 对 象 


定义 


人 
定义 一 个 了 


工厂 方法 是 一 种 设计 模式 ， 


些 基 本 抽象 作为 核心 的 领域 模型 。 那 么 ， 我 们 第 一 步 先 设计 好 “交易 ”抽象 ， 并 
[三 方法 ( 见 代码 清单 5-13) 


的 Ruby 实 现 温习 


遍 ， 再 跟着 我 一 起 学 习 下 面 的 Clojure 实 现 ， 这 样 你 会 对 


， 然 后 根据 传 入 的 信息 生成 交易 对 象 。 


它 为 一 


日 相似 对 


象 的 实例 创建 操作 提供 单一 的 交互 入 口 。 


站 Clojure 知 识 点 


。 基 本 的 函数 定义 和 语法 。Clojure 的 语法 接近 于 Lisp， 陌生 的 前 组 表示 


法 可 能 让 你 措 手 不 


及 。 如 果 不 习 惯 Clojure 的 语法 ， 请 细 读 一 下 第 5.7 广 文献 [4] 的 基础 知识 。 


。 定义 Map 数 据 结构 。Clojure 编 程 中 常用 Map 数 据 结构 来 仿造 “类 ”这 种 


OO 编程 结构 。 


属性 可 以 来 自 Web 请 求 、 文 本 文件 、 数 据 库 ， 系 统 连 接 到 的 任何 数据 源 都 可 以 作为 交易 对 象 的 信 


息 来 源 。 工 三 方法 从 请 求 中 提取 信息 ， 并 建立 一 个 map 来 表示 一 笔 交 易 的 全 


部 属性 。 


代码 清单 5-13 ”生成 交易 的 Clojure 代 码 


(defn trade 
"根据 请 求 产生 一 笔 交 易 " 


[request] 

{:ref-no (:ref-no request) @ 从 请 求 构 建交 易 
:account (:account request) 
:instrument (:instrument request) 


:tax-fees {}}) 外 税 费 的 具体 内 容 稍 后 再 填 入 


(def request 和 目 请 求 样 例 
{:ref-no "trd-123" 
:account "nomura-123" 
:instrument "IBM" 
:unit-price 120 
:quantity 300}) 


:principal (* (:unit-price request) (:quantity request)) 基本 价值 = 单价 * 数量 


Clojure 在 对 象 系统 之 上 向 用 户 呈 现 了 一 个 函数 式 的 编程 模型 。 例 中 我 们 将 
对 ， 也 就 是 Clojure Map 的 形式 。 其 中 trade 是 一 个 函数 ， 负 责 根 据 从 requ 


建立 必要 的 抽象 。 作 为 输入 的 request 四 也 是 一 个 Map ， 被 实现 为 各 键 的 函数 。 当 我 们 从 Map 


象 实现 为 一 系列 键 - 值 
est 输入 的 相关 信息 


提取 信息 的 时 候 ， 所 用 语法 与 一 般 的 范 数 调用 相同 @。 例 如 字面 量 语句 ( :account request ) 


意 为 从 Map 中 取出 account 键 的 值 。 


trade 方法 清晰 地 表达 了 领域 意图 和 领域 语义 。 Clojure 的 map 字 面 量 量 语法 起 
果 ， 领 域 概念 可 以 直接 被 映射 为 编程 元 素 ， 从 而 提高 了 代码 的 表现 力 。tax- 
只 是 一 个 占 位 符 @， 下 一 节 对 生成 的 交易 进行 后 续 充 实 操作 时 再 填 入 具体 的 


5.4.2 通过 装饰 器 充实 领域 对 象 


到 了 命名 参数 的 效 
fees 这 个 map 目 前 
内 容 。 


下 一 步 要 对 基本 抽象 进行 补充 ， 使 之 适用 于 交易 周期 中 的 具体 用 例 。 新 的 特性 以 装饰 器 的 方式 附 
加 到 基本 抽象 之 上 ， 我 们 在 第 5.2.4 小 闻 就 通过 同样 的 模式 在 Ruby 实 现 中 加 入 税 费 组 件 。 不 过 这 一 


次 的 实现 手段 是 Clojure 语 言 的 编译 时 元 编程 和 宏 。 


站 


品 DSL 的 设计 工作 要 将 目标 语法 映射 到 语言 背后 的 语义 。 那 么 当 实现 语言 
该 随 之 改变 。 


站 Clojure 知 识 点 


高 阶 画 数 。 Clojure 支 持 高 阶 画 数 特性 ， 面 数 完全 可 以 像 值 一 样 使 用 。 
传递 ， 也 可 以 充当 返回 值 ， 诸 如 此 类 。 


变 了 ， 思 维 方式 也 应 


函数 可 以 作为 参数 来 


。 宏 是 用 Clojure 语 言 开 发 DSL 的 根本 秘诀 。 宏 是 编译 时 元 编程 的 基本 组 


织 元 素 。 


“Let 绑 定 > 和 词法 作用 域 。 不 管 作 用 域 有 多 小 ， 你 都 可 以 根据 需要 精确 指定 绑 定 的 作用 


。 掌握 Clojure 标 准 库 函 数 。Clojure 网 站 (http://clojure.org ) 上 有 丰富 的 相关 资源 。 

。 不 可 变数 据 结构 。Clojure 提 供 不 可 变 、 持 久 化 (persistent) 的 数据 结构 。 这 里 的 “持久 
化 ” 指 即使 改动 了 数据 结构 之 后 ， 用 户 仍 可 以 访问 所 有 旧版 本 的 数据 。 详 见 第 5.7 节 文献 
[4]。 


。 若干 基本 的 组 合子 ， 如 reduce 和 ->“。 组 合子 是 以 其 他 画 数 作为 参数 的 函数 ， 能 帮 你 写 出 
简洁 而 有 表现 力 的 代码 。 


怎么 样 才能 动态 地 给 抽象 增加 新 行为 ， 却 不 增加 运行 时 的 性 能 负担 昵 ? Clojure 给 出 的 答案 是 编译 
时 mixin。 我 们 来 看 看 具体 的 做 法 。 


1. 使 用 Clojure 组 合子 


假设 我 们 有 一 个 with-tax-fee 结构 ， 它 的 作用 是 在 现 有 的 Clojure 函 数 上 引入 新 的 行为 ， 从 而 给 
我 们 的 交易 加 上 税 费 。 在 下 面 的 代码 片段 中 ， 当 with-tax-fee 作用 于 trade 函数 时 ， 我 们 会 
得 到 一 个 新 的 trade 函数 ， 新 函数 在 原 有 属性 集合 上 增加 了 :tax 和 :commission 两 则 映射 。 


(with-tax-fee trade 
(with-values :tax 12) 
(with-values :commission 23)) 


在 这 里 ，with-tax-fee 充当 了 trade 函数 的 装饰 器 。 现 在 当 你 根据 request 执行 trade 函数 
时 ， 其 中 的 税金 和 佣金 项 目 将 分 别 被 设置 为 基本 价值 的 12% 和 23%。 (税金 和 佣金 一 般 以 交易 基本 
价值 的 百分比 来 计算 。) 


除了 DSL 的 实现 者 ， 别 的 人 一 般 不 需要 关心 with-tax-fee、with-values 等 语言 构造 的 具体 
实现 ， 把 它们 当做 一 般 的 组 合子 用 于 交易 DSL 的 抽象 设计 即 可 。 不 过 本 节 既 然 讨 论 DSL 的 实现 ， 
自然 应 该 探讨 ， 什 么 样 的 函数 才能 充当 另 一 个 函数 的 装饰 器 ， 为 其 补充 新 的 行为 。 下 面 是 with - 
values 的 实现 。 


代码 清单 5-14 ”给 trade 抽象 包 衷 一 层 新 行为 


(defn with-values [trade tax-fee value] @ 高 阶 函数 
(fn [request] @ 返回 一 个 函数 
(let [trdval (trade request) @@ 获取 交易 价值 
principal (:principal trdval)] 
(assoc-in trdval [:tax-fees tax-fee] 
(* principal (/ value 100)))))) @ 以 基本 价值 的 百分比 的 形式 存 入 :tax-fees Map 


with-values 组 合子 对 trade 函数 的 输出 做 了 不 少 补充 工作 。 虽说 本 书 的 主题 不 是 介绍 Clqjure 
语言 ， 但 对 于 这 段 代 码 ， 有 必要 深入 剖析 Clojure 语 言 特 性 在 其 中 所 起 的 作用 。 这 样 有 助 于 你 理解 
Clojure 语 言 如 何以 其 抽象 能 力 化 繁 为 简 ， 向 用 户 呈 现 简洁 的 API， 如 表 5- 4 所 二 。 


表 5-4 ”解剖 Clojure API 


Clojure 语 言 特性 在 DSL 中 的 运用 


高 阶 函 数 是 实现 DSL 的 基本 要 素 之 ”|with-values 的 第 一 个 参数 是 个 函数 @，with-values 函数 返 区 人 这 些 都 是 
Clojure 语 言 把 函数 视 同 于 一 般 的 值 的 具体 表现 。Clojure 支 持 高 阶 函 数 ， 所 以 你 可 以 把 画 数 


的 组 合 性 ， 
很 好 的 组 合 


合 能 力 


当成 参数 来 传递 ， 当 成 返回 值 来 获取 ， 就 像 语言 中 的 其 他 数据 类 型 一 样 。 
fn 表示 一 个 匿名 函数 加。with-values 所 返回 的 这 个 匿名 函数 ， 对 with-values 的 输入 函数 
trade 进行 了 增补 ， 增 加 填充 :tax-fees Map 的 行为 
求 值 时 指定 词 小 接生 | 蔬 我 们 用 新 函数 的 参数 来 调用 trade 上 四， 然后 把 tax-fee 的 值 补充 到 结果 的 Map 里 
和 和 et 后面 的 多 个 缆 定 项 依 先 寡 次 序 进行 径 定 ”所 民 后 一 项 弹 定 principal 林 以 引用 前 -项 
绑 定 trdval 
到: 这 段 代码 的 最 后 一 步 ， 是 把 tax-fee 和 value 参数 凑 成 一 个 键 - 值 对 @， 放 入 trade 函数 在 @ 处 
不 可 变性 、 实 现 持久 化 数据 结构 的 | 返回 的 Map 。 
能 力 在 这 个 过 程 中 ， 原 来 的 Map 保持 不 变 。 Re 寻 此 ， 
assoc-in 每 次 调用 都 会 返回 一 个 新 的 ap ， 比 原来 的 Map 多 了 参数 里 指定 的 一 对 键 值 
with-values 的 返回 结果 是 一 个 函数 ,这 有 利于 实现 串联 调用 。 我 们 可 以 把 代码 写成 这 个 样 
(with-tax-fee trade 
画 数 可 以 然 地 组 合 在 一 起 en ee 23)) 
我 们 把 两 次 with-values 调用 跟 原 来 的 trade 函数 串联 在 一 起 。 方 法 的 串联 调用 体现 了 语言 


我 们 说 过 这 是 一 种 优秀 的 DSL 特 


质 


。Clojure 等 语言 将 函数 视 同一 般 的 值 ， 造 就 了 


的 内 容 。 


那么 ，with-tax-fee 怎 术 


2. 高 阶 画 数 实现 的 装饰 器 
我 们 还 欠缺 一 个 知识 ] 闪 局 点 才 和 有 


装饰 器 的 实现 基础 。 对 比 总 


Eb 讲 解 清 


羊 与 With-VvValues 全 


J 老 本 


合力 构成 


总 是 围绕 


放 在 了 更 重要 的 位 置 


志 ， 柚 


应 该 从 Clojure 里 
的 函数 “ 串 接 (threading) ” 手 


发 气 


最 自 


然 、 


7 


已 为 出 
最 符合 语言 


法 。 


a 


着 对 象 来 展 天 
C 准 备 了 很 多 
贯 的 手 


巧妙 的 


新 的 trade EE 


楚 with-tax-fee 的 原理 ， 
F 的 Ruby 实 现 ， 我 们 越 来 起 认 
F 段 。 作 为 一 种 基本 思路 ，Clojure DSL 就 


个 知识 


函数 呢 ? 


\ 太 时 


这 是 我 们 下 面 要 讨论 


然 不 怎 


JAY 


只 到 ， 


人 么 起 眼 ) 却 是 
Clojure 把 函数 


法 来 实现 。 下 面 的 代码 片段 演示 了 Clojure 语 言 


i 


已 


(def trade 


(-> trade 
(with-values 
(with-values 


:tax 


20) 


:commission 30))) 


-> 宏 将 


它 的 第 一 个 参数 传 
下 去 ， 如 同 把 这 上 


> 把 一 个 函数 串 接 到 它 


代码 就 运用 了 这 和 
http://github. com/weavejester/compojure ) 


里 提 到 的 编程 概念 


解 这 


此 form 量 


给 参 


沼 人 少 


成 了 一 串 


区 的 装 陋 器 


技巧 。 这 段 


。 但 一 日 


路 ， 你 就 能 欣赏 到 上 


盏 短 短 


四 


3. 画 龙 点 睛 的 Clojure 宏 


与 其 让 用 户 EE 
了 时 


生 任 何 运行 


的 额 


数 序列 
。Clojure 的 函数 串 接 i 
， 束 等 于 
股 代码 来 


行 代码 的 强烈 


的 下 


个 form 


日 领会 了 Clojure 


Clojure 
8 如 果 不 熟 悉 
用 小 的 函数 式 于 


ZE 


， 一 口 


果 再 传 给 再 下 一 个 form， 如 此 依次 传递 


上 实现 装饰 器 变 得 轻而易举 ， 
完成 了 对 画 数 的 重 定 义 。 代 码 清 自 


因为 只 要 用 - 
5-15 所 示 的 装饰 器 实现 


语言 Web 开 发 框架 Compojure ( 详 见 


Clojure 语 言 ， 你 可 能 要 费 一 些 功夫 才 外 
象 组 合成 大 的 函数 式 于 


类 怀 ， 


个 宏和 


代码 清单 5-15 Clojure 


装饰 器 


Ek 理 
象 的 设计 思 


并 且 感 激 它们 对 DSL 实 现 所 做 的 贡献 。 


巴 函 数 串 接 操作 包装 起 来 ， 除 了 简明 易 懂 外 ， 还 不 产 
于 是 就 有 了 代码 清单 5-15。 


(defmacro redef 


" 重 定义 一 个 现 有 值 ， 保 持 元 数据 不 变 。 
[name value] 
“(let [m# (meta #'~name) 

v# (def ~name ~value)] 


(alter-meta! Vv# merge m#) 
V#) ) 


(defmacro with-tax-fee @ clojure 宏 
"将 画 数 包 入 一 个 或 多 个 装饰 器 。" 
[func & decorators] 
‘(redef ~func (-> ~func ~@decorators))) 


罕 密 几 行 代码 就 分 勒 出 with-tax-fee 的 全 貌 一 一 一 个 Clojure 语 言 写 束 的 ， 以 非 侵 入 方式 向 现 有 
象 增补 新 行为 的 编译 时 装饰 器 。with-tax-fee 被 实现 为 一 个 宏 @， 因 此 它 所 封装 的 代码 将 在 
编译 过 程 的 宏 展开 阶段 被 释放 出 来 。 


过 程 中 ， 输 入 函数 的 原 值 ， 即 根 绑 定 (root binding) 会 被 我 们 重新 定义 ， 同 时 保持 其 元 数 
不 变 。 这 就 是 redef 宏 的 工作 。 这 个 装饰 过 程 不 像 Ruby 元 编程 那样 在 执行 阶段 才 实 际 发 生 ; 
Clojure 在 运行 时 不 存在 任何 元 对 象 ， 所 有 的 定义 在 宏 展 开 阶 段 就 已 经 确定 了 。 


现在 我 们 的 DSL 可 以 在 交易 抽象 上 补充 税 费 计算 逻辑 了 ， 这 着 实 费 了 不 少 功夫 。 有 了 新 的 0 
的 { rade 函数 ， 计 算 交 易 的 现金 价值 的 API 也 很 容易 能 定义 出 来 。 我 们 之 所 以 能 实现 有 意义 的 领 
域 抽象 ， 讨 论 至 今 的 Clojure 特 性 功 不 可 没 。 下 面 的 API 明 白 无 误 地 说 明了 自己 是 如 何 计算 交易 净值 


的 。 人 F 何 熟悉 金融 交易 和 领域 语言 的 人 都 能 理解 该 函数 的 意图 。 


(defn net-value [trade] 
(let [principal (:principal trade) 
tax-fees (vals (trade :tax-fees))] 
(reduce + (conj tax-fees principal)))) @ 组 合子 提高 了 抽象 程度 


这 几 行 语句 是 对 Clojure 语 言 简洁 性 的 最 好 证 明 。Clojure 是 一 种 紧凑 的 语言 ， 适 合 在 比较 高 的 抽象 
层次 上 进行 编程 。 上 面 最 后 一 行 代码 用 非常 简练 的 语言 描述 了 复杂 的 操作 。reduce 组 合子 递归 
地 作用 于 后 面 的 序列 ， 依 次 施加 指定 的 函数 (+ ) @ 


4. 我 们 的 成 果 


我 们 的 DSL 只 剩 下 最 后 的 执行 步 又， 成 功 在 望 ， 反 而 不 必 和 急于 一 时 。 我 们 不 妨 醒 心 对 照 表 5-5， 总 
结 一 下 到 目前 为 止 我 们 为 实现 计算 交易 现金 价值 的 DSL 做 了 哪些 事情 。 


表 5-5 DSL 的 演变 过 程 


MN| 


DSL 的 演变 步骤 实现 细节 
通过 工厂 方法 trade 完成 以 下 工作 : 
1 设计 交易 的 基本 抽象 1 从 外 部 数据 源 接收 数据 
2 生成 交易 对 象 ， 对 象 表示 成 Clojure Map 的 形式 
2 向 领域 对 象 注入 新 行为 新 的 trade 函数 为 了 计算 现金 价值 而 被 注入 了 税 费 方面 的 行为 
采用 以 下 技巧 : 如 何 将 税 费 数据 填充 到 交易 中 : 
1 定义 with-values 函数 ， 对 trade 函数 的 输出 进行 增补 ， 加 入 新 行为 
。 装饰 器 模式 2 通过 装饰 器 模式 将 税 费 数据 填 入 trade 函数 的 输出 
。 Clojure 宏 3 定义 with-tax-fee 宏 ， 该 宏 可 将 with-values 多 次 应 用 于 一 个 现 有 函数 
注意 : with-tax-fee 使 用 了 编译 时 元 编程 技术 ， 没 有 额外 的 运行 负担 
net-value 函数 除了 接收 第 2 步 修改 后 的 trade 函数 ， 还 将 完成 以 下 工作 : 


3 定义 net-valu 函数 ， 计 算 交 易 的 现金 | 1 从 交 信 息 中 取得 基本 价值 
价值 2 从 交易 信息 中 取得 税 费 数据 
3 按照 具体 的 领域 逻辑 计算 现金 净值 


Clojure 语 言 的 设计 理念 不 同 于 Ruby、Groovy、Java 等 语言 。 尽 管 扎根 在 Java 的 对 象 系统 之 上 ， 它 


的 语言 习惯 却 是 画 数 式 的 。Clojure 编 程 不 能 沿用 面向 对 象 的 思路 。 


纵 观 本 节 的 实现 ， 我 们 其 实 并 


没有 运用 什么 特殊 的 技法 来 设计 DSL， 你 看 到 的 全 都 是 自然 的 Clojure 编 程 风格 。 


图 5-10 描 绘 了 Clojure DSL 脚 本 的 生命 周期 ， 请 你 多 看 


两 上 腿 ， 加 深 理 解 。 


(一 般 form) trade ** 无 运行 时 额外 负担 
*x* 无 运行 时 元 对 象 /元 数据 
request 
net-value 
request 
a decorate 宏 展 开 : 
… 所 有 的 Clojure form 
(特殊 form) i 
rede 
\ 供 执 行 的 字 节 码 
+ 一 DSL 脚 本 ”一 一 一 一 语义 模型 一 一 执行 模型 一 


图 5-10 ”从 Clojure DSL 脚 本 到 Clojure 执 行 模型 。 留 心 观察 DSL 脚 本 被 执行 之 前 经 历 的 一 系列 准 
备 。 我 们 在 第 1 章 就 提 过 ， 语 义 模 型 是 DSL 脚 本 与 执行 模型 之 间 的 桥梁 


感觉 疲倦 了 吗 ? 其实 ， 我 们 还 有 一 件 关 于 Clojure DSL 的 事情 留 着 没 说 ， 那 就 是 Clojure REPL 


(read-eval-print-loop) 这 个 让 你 能 够 即时 观察 、 调 整 DSL 的 互动 窗 


。 小 划一 下 ， 补 充 点 能 量 


接 下 来 是 互动 环节 ， 少 了 活力 可 不 行 。 我 们 会 让 你 直接 与 Clojure 解 释 器 面对面 地 交流 ， 实 地 运行 


本 小 节 刚 刚 设计 好 的 DSL 。 


5.4.3 通过 REPL 进行 的 DSL 会话 


Clojure 等 动态 语言 允许 你 直接 通过 一 个 REPL 界 面 与 语言 运行 时 交互 。 (关于 REPL 的 介绍 请 阅读 


http://en.wikipedia.org/wiki/Read-eval-print_loop )。REPL 让 你 实时 观察 DSL， 即时 修改 其 行为 并 看 


到 修改 的 效果 。 这 项 特性 绝对 是 实现 D5L 无 颖 改进 的 有 力 帮 手 。 
我 们 的 DSL 的 简洁 度 和 表现 力 都 达到 了 相当 高 的 水 平 ， 举 例 来 说 ， 


我 们 的 DSL 表达 现金 价值 的 


计算 逻辑 ， 只 需要 写 (net-value (trade request)) 这 人 么 简 自 


的 一 句 话 。 你 可 以 即时 创建 一 


笔 交 易 ， 放 在 REPL 里 运行 ， 然 后 修改 trade 函数 ， 以 装饰 器 的 形式 增加 业务 规则 。 下 面 是 用 我 


们 的 DSL 在 Clojure REPL 中 进行 的 一 段 会 话 : 


user> (def request f{:ref-no "r-123", :account "a-123", 
:instrument "i-123", :unNit-price 20, 
:quantity 100}) 

#'UsSer/request 


user> (trade request) 
{:ref-no "r-123", :account "a-123", :instrument "i-123", 
:principal 2000, :tax-fees {}} 


user> (with-tax-fee trade 
(with-values :tax 12) 
(with-values :commission 23)) 
#'USer/trade 


user> (trade request) 

{:ref-no "r-123", :account "a-123", :instrument "i-123", 
:principal 2000, :tax-fees {:commission 460, :tax 240}} 

user> (with-tax-fee trade 


(with-values :vat 12)) 
#'User/trade 


user> (trade request) 
{:ref-no "r-123", :account "a-123", :instrument "i-123", 
:principal 2000, :tax-fees {:vat 240, :commission 460, :tax 240}} 


user> (net-value (trade request)) 
2940 


好 的 DSL 应 该 对 外 呈现 易于 使 用 、 充 分 体现 领域 语汇 精髓 的 API 界 面 ， 同 时 将 其 复杂 的 实现 隐藏 在 
AP 之 局 这 是 优 D51 的 决定性 岳之 一 。 本 小 了 Clohne REPL 交 实地 民 基 了 DS 的 几 洁 
度 。 我 们 的 DSL 始 终 让 你 觉得 它 处 处 呼应 了 交易 员 的 实际 工作 用 语 ， 虽 然 是 领域 语言 ， 却 能 刚好 


用 Clojure 语 言 来 实现 。 


一 名 合格 的 设计 者 在 学 习 任何 新 施 式 的 时 候 ， 都 不 要 志 记 掌握 它 的 缺陷 。 我 们 已 经 讲解 了 不 少 正 
es i 3 为 你 指明 DSL 的 实现 道路 。 下 一 节 要 说 说 反面 的 缺陷 ， 提 醒 你 喧 
开 途 中 区 合 日 。 


5.5 告 诬 


以 来 ， 本 章 向 你 展示 的 都 是 正面 的 例子 。 我 们 用 了 三 种 最 流行 的 动态 JVM 语 言 来 讨论 DSL 的 
实现 ， 不 但 让 你 见识 了 不 同 语言 的 各 种 惯用 法 和 实现 技巧 ， 还 让 你 亲手 实现 了 若干 证 券 交 易 应 用 
领域 的 实用 DSL 脚 本 。 然 而 ， 不 管 目 前 进展 得 多 么 顺利 ， 你 终究 会 遇 到 一 些 陷阱 ， 而 有 些 潜在 的 
危险 我 必须 给 你 指出 来 。 


我 特意 为 本 章 分 属 三 种 语言 的 例子 选取 了 关系 密切 的 三 个 用 例 。 这 么 做 的 目的 ， 是 强调 即使 问题 
相同 ， 你 也 应 该 根据 不 同 语言 的 特点 ， 选 择 不 同 的 解决 手段 。 在 Ruby 实 现 中 适合 用 动态 元 编程 来 
解决 的 问题 ， 使 用 Clojure 时 ， 就 不 一 定 能 照搬 Ruby 的 套路 。 你 必须 学 会 选择 正确 的 工具 去 做 正确 
的 事 。 而 恰恰 在 你 选择 的 过 程 当 中 ， 很 容易 冷 不 防 被 常见 的 陷阱 绊 倒 。 我 们 打算 从 DSL 开 发 的 角 
度 讨 论 其 中 的 一 些 陷 阱 。 


5.5.1 遵从 最 低 复 杂 度 原则 


实现 内 部 DSL 的 时 候 ， 应 该 选择 宿主 语言 中 最 简单 、 同 时 最 适用 于 解答 域 模型 的 惯用 法 。 我 们 经 
常 可 以 看 到 开发 者 在 不 必要 的 情况 下 选用 元 编程 手段 ， 例 如 Ruby 的 猴子 补丁 丁 就 是 一 个 被 滥用 的 典 
型 。 (还 记得 猴子 补丁 吗 ? 猴子 补丁 可 以 打开 一 个 类 ， 修 改 其 中 的 方法 和 属性 。 由 于 修改 结果 会 
作用 了 全 局 ，Ruby 的 猴子 补丁 特 另 | 危险 很 多 时 候 Ruby 模 块 足 以 代替 猴子 补丁 ， 与 其 打开 一 个 
插入 新 方法 ， 不 如 把 方法 放 入 一 个 Module 中 ， 然 后 有 针对 性 地 将 Module 包含 进 有 需要 的 
> 1 0 


5.5.2 追求 适度 的 表现 力 
过 度 追 求 DSL 的 表现 力 ， 有 可 能 给 实现 带 来 无 请 的 复杂 性 。 语 言 的 表现 力 能 满足 用 户 要 求 就 够 


了 。 下 面 的 Ruby DSL 片 段 来 自 第 5.2.2 小 节 ， 对 于 程序 员 来 说 ， 这 样 的 语言 已 经 足够 让 人 理解 其 领 
域 语义 。 


hn 
到 


H+ 


TradeDSL .new.new_trade 'T-12435 ' ， 
'acc-123’, :buy, 100.shares.of('IBM'), 
'unitprice' => 200, 'principal' => 120000, 'tax' => 5000 


表现 力 已 经 够 充分 了 ! 那么 我 们 为 什么 要 继续 开发 解释 器 版 DSL 呢 ?有 两 个 二 首先 ， 我 布 户 
表现 力 提高 之 后 ， DSL 人 全 到 团队 中 领域 专家 的 认可 。 领 域 专家 老 鲍 是 第 一 位 抱怨 原 版 DSL 所 含 
非 本 质 复杂 性 的 有 户 ， 解 释 需 版 更 符合 他 平常 在 交易 台 前 的 用 语 。 其 次 ， 我 布 望 充 分 展示 Ruby 的 
动态 性 的 潜力 。 当 你 在 现实 中 真正 设计 DSL 时 ， 一 定 要 记 住 表现 力 水 平 应 该 配合 用 户 的 身份 。 


5.5.3 坚持 优秀 抽象 设计 的 各 项 原则 


经 常会 遇 到 一 些 现实 情况 ， 让 你 忍 不 住 想 要 增加 DSEL 的 枝 节 去 提高 用 户 的 认同 感 ， 结 果 往 往 就 违 
反 了 第 1 章 讨 论 过 的 优秀 抽象 的 设计 原则 。 语 言 里 的 歼 词 和 虚 饰 多 了 ， 封 装 就 容易 被 破坏 ， 实 现 的 
内 部 细节 也 更 容易 暴露 。 为 提高 DSL 的 表现 力 而 削弱 抽象 的 不 可 变性 ， 并 不 一 定 是 划算 的 。 这 方 

面 的 取舍 可 以 看 代码 清单 5-5 的 例子 。 我 们 把 Instrument 象 做 成 可 变 的 ， 得 以 将 票据 创建 逻辑 
0 畅 的 DSL 语 句 。 然 后 在 代码 清单 5-7 中 ， 我 们 进一步 利用 抽象 的 可 变性 提高 DSL 的 表现 


这 里 的 告 诚 并 不 是 让 你 放弃 对 表现 力 的 追求 。 请 你 记 住 ， 语 言 设计 是 一 种 充满 了 取舍 和 妥协 的 工 
作 。 任 何 决策 、 对 抽象 设计 原则 的 任何 让 步 ， 都 应 该 经 过 审慎 评估 。 对 设计 原则 的 调整 ， 也 应 该 
以 DSL 目 标 用 户 的 身份 背景 为 标杆 。 


5.5.4 避免 语言 间 的 摩擦 


按照 一 般 的 认识 ， 不 同 的 DSL 不 能 组 合 使 用 。 一 种 DSL 总 是 针对 一 个 专门 的 领域 。 你 在 设计 交易 
系统 的 DSL 时 ， 总 是 以 建 模 人 页 域 为 参照 去 调整 其 表达 方式 。 至 于 如 何 与 帐 务 明 细 DSL、 投 资 组 合 
管理 DSL 之 类 的 第 三 方 DSL 集 成 ， 你 根本 想 不 了 那么 多 。 


虽然 你 无 法 预料 一 切 情况 ， 但 设计 中 还 是 应 该 尽量 提高 抽象 的 组 合 能 力 。 画 数 天 生 比 对 象 容易 组 
合 。 如 果 你 的 实现 语言 支持 Ruby、Groovy、Clojure 中 的 高 阶 函 数 ， 那 么 应 该 把 设计 重点 放 在 组 合 
子 的 串联 上 ， 通 过 组 合子 之 间 的 联系 ， 自 然 凝 聚 为 语言 的 脉络 。 可 组 合 的 抽象 具有 诸多 优点 ， 有 
利于 并 发 ， 具 体 的 讨论 请 查阅 附录 A 。 


如 有 果 你 的 抽象 不 能 组 合 ，DSL 就 成 了 一 盘 散 沙 。 语 言 成 分 一 个 个 孤立 着 零落 不 成 各， 领域 用 户 又 
怎么 可 能 用 得 自然 。 


以 上 就 是 DSL 设 计 中 最 容易 踩 中 的 几 个 陷阱 ， 务 必 加 以 注意 。 从 语言 中 挑选 哪 一 部 分 子 负 
ps 是 极端 重要 的 设计 决策 。 你 要 时 时 记 住 DSL 的 集成 需求 ， 始 终 苯 重 优 秀 象 的 设计 原 
人 。 


5.6 小 结 


贺 你 ! 用 动态 关 型 语言 实现 由 部 DSL 扑 长 征讨 论 束 要 结束 耳 。 Ruby、Groovy 和 Clojure 语 言 作为 
JVM 平 台 语 言 多 样 性 的 代表 ， 被 我 选 为 讲解 用 的 实现 语言 


JRuby 是 Ruby 语 言 的 Java 实 现 ， 充 当 了 Ruby 语 言 与 Java 对 象 模 型 互 操作 的 桥梁 。 它 既 有 Ruby 的 强大 
元 编程 能 力 ， 又 得 益 了 Java 的 互 操作 性 FE。Groovy 语 言 本 身 就 被 当做 一 种 Java DSL， 与 Java 共 用 相同 
的 对 象 模 型 。Clojure 语 言 虽然 也 建立 在 Java 的 对 象 模 型 之 上 ， 却 提供 了 Lisp 那 种 强烈 的 画 数 式 编程 


本 章 引 导 你 使 用 以 上 三 种 语言 实现 了 若干 典型 、 现 实 的 交易 系统 用 例 。Ruby 的 元 编程 能 力 强 ， 可 
以 使 DSL 在 运行 时 保持 动态 ， 所 以 你 可 以 组 织 建造 高 阶 抽象 。 Groovy 的 运行 时 能 与 Ruby 相 似 ， 
但 它 与 Java 的 互 操作 更 严 丝 合 颖 ， 上 毕竟 两 者 共享 同一 个 对 象 模型 


我 们 从 第 2 章 开 始 设计 的 指令 处 理 DSL 迎 来 了 用 Groovy 语 言 实现 的 最 终 版 本 。 通 过 这 个 例子 ， 你 应 
该 了 解 了 一 般 DSL 的 增 量 式 演进 的 活 代 过 程 。 Clojure 是 运行 在 JVM 上 的 Lisp 语 言 ， 拥 有 出 类 拔 茜 的 


水 


编译 时 元 编程 能 力 ， 也 就 是 所 谓 的 宏 。 你 学 习 了 如 何 运 用 宏 来 提高 DSL 的 表现 力 和 简洁 度 ， 并 且 
知道 它 不 会 像 其 他 语言 的 元 对 象 协议 那样 增加 运行 时 的 负担 。 


最 后 ， 只 要 你 能 记 住 每 个 设计 决策 意味 着 哪些 妥协 和 代价 ， 肯 定 能 做 好 DSL 的 设计 。 说 到 底 ， 语 
言 设 计 工 作 就 是 要 检验 你 能 不 能 在 表现 力 和 实现 代价 之 间 找 好 平衡 。 对 于 DSL 来 说 ， 它 充当 着 
发 者 和 领域 专家 之 间 沟 通 渠 道 的 角色 ， 因 此 能 充分 传达 代码 的 意图 才 是 最 根本 的 追求 。 


要 点 与 最 佳 实践 


。 设 计 内 部 DSL 时 应 该 掌握 所 有 的 Ruby 元 编程 手段 。 不 要 忘记 元 编程 有 代码 复杂 性 和 性 能 两 
方面 的 代价 。 


。 优先 选用 Groovy Category 代替 ExpandoMetaClass 来 控制 元 编程 的 作用 域 。 


。 Ruby 的 猴子 补丁 很 吸引 人 ， 但 它 作 用 于 全 局 命名 空间 。 在 DSL 实 现 中 使 用 猴子 补丁 时 要 三 
思 而 后 行 。 


。 Clojure 虽 然 在 Java 平 台 上 实现 ， 却 是 一 种 函数 式 语 言 。Clojure DSL 的 设计 应 该 围绕 领域 范 
数 进行 。 充 分 发 挥 画 数 式 编程 的 长 处 ， 运 用 高 阶 画 数 和 闭 包 来 设计 DSL 的 语义 模型 。 


与 三 种 最 流行 、 最 动态 的 JVM 语 言 结伴 同行 的 DSL 设 计 之 旅 到 了 终点 。 经 过 这 番 历 练 ， 想 必 你 已 
经 对 实现 D5L 的 各 种 惯用 手法 有 了 基本 的 概念 。 能 否 选 择 符合 语言 习惯 的 正确 实现 方案 ， 对 开发 

作 有 着 决定 性 的 影响 ， 你 选择 的 方案 决定 了 DSL API 的 表现 力 水 平 。 学 习 完 本 章 ， 你 对 DSL 开 发 
的 掌握 程度 又 上 了 一 个 台阶 ， 有 具备 了 深入 探索 Ruby、Groovy 和 Clojure 语 言 各 自 实 现 技巧 的 基础 。 


下 一 章 我 们 将 跨 过 隔 开 类 型 ， 从 男 一 端 着 眼 ， 观 察 静态 类 型 会 塑造 出 什 
么 样 的 DSL 实 现 。 等 着 你 的 还 有 充满 趣味 的 言 开发 内 部 DSL 。 
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第 6 章 Scala 语 言 中 的 内 部 DSL 设 计 


本 章 内 容 


。 对 Scala 语 言 本 身 的 介绍 
。 用 Scala 语 言 开发 内 部 DSL 


。 组 合 多 个 DSL 
。 运用 Monad 化 结构 


以 DSL 驱 动 的 开发 方式 有 其 擅长 和 不 擅长 的 广 面 ， 前 面 几 章 说 了 不 少 。 现 在 你 肯定 已 经 认识 到 ， 
对 于 应 用 中 反映 业务 规则 的 部 分 ，DSL 能 非常 有 效 地 玻 通 开发 团队 与 领域 专家 团队 的 沟通 渠道 。 
上 一 章 讨论 了 使 用 几 种 动态 JVM 语 言 担 当 内 部 DSL 宿 主 的 能 力 。 这 一 章 要 介绍 的 是 一 种 非常 具有 
这 方面 潜力 的 静态 JVM 语 言 一 Scala。 


本 章 继 旨 卖 重点 讨论 具体 的 实现 ， 直接 与 篇 程 相关 的 实践 性 内 容 将 占据 较 大 篇 幅 。 我 们 首先 论证 
Scala 语 言 是 一 种 称职 的 内 部 DSL 宿主 语言 ， 然 后 在 真实 的 DSL 设计 中 检验 这 个 结论 。 图 6-1 是 本 章 
讨论 进程 的 路 线 图 。 


介绍 Scala 语 言 在 DSL 


开发 方面 的 实力 组 合 多 种 DSI 
| | 
” 加 
实践 Scala 语 言 的 DSL 并 发 使 用 Monad 化 结构 设计 简洁 的 DSL 
。 领域 抽象 
。 领 域 规则 
。 各 种 模式 
图 6-1 本 章 路 线 图 


6.1 节 和 6.2 季 将 确立 Scala 作 为 DSL 窒 主 的 资格 。 在 此 之 后 ， 我 们 就 证 券 交易 后 台 系 统 中 的 真实 用 例 
展开 详细 讨论 。6.3 节 和 6.6 节 会 实际 演练 许多 惯用 法 、 最 佳 实践 和 模式 。6.7 节 讨论 如 何 将 多 种 DSL 
组 合成 更 大 规模 的 语言 。 本 章 最 后 介绍 Monad 在 DSL 设 计 中 的 作用 ， 它 能 塑造 出 简洁 、 带 有 画 数 
式 风格 、 富 有 表现 力 的 DSL 。 


学 完 本 章 ， 你 将 全 面 掌握 如 何在 Scala 这 种 宿主 语言 中 设计 DSL。 你 会 学 到 如 何 建 模 领域 组 件 ， 然 
后 围绕 它们 建立 简单 易 用 、 语 义 丰 满 的 语言 抽象 ， 熟 悉 这 方面 的 惯用 法 和 最 佳 实践 。 怎 么 样 ， 想 
学 吗 ? 我 们 开始 吧 。 


曙 本 章 代码 片段 都 以 Scala 2.8 版 本 为 准 。 不 就 悉 Scala 语 法 的 读者 可 以 参阅 附录 DD 的 Scala 语 法 
查 表 。 


6.1 为 何 选 择 Scala 


Scala 同 面向 对 象 语言 一 样 ， 拥 有 丰富 全 面 的 抽象 机 制 ， 塑造 7DSL 的 简洁 度 和 表现 力 。DSL 不 能 
脱离 其 实现 模型 而 独立 存在 ， 我 们 说 过 ，DSL 是 罩 在 实现 模型 外 面 的 一 层 门 面 。 本 章 将 分 析 Scala 
发 展 为 宿主 语言 的 历程 ， 围 绕 设计 底层 模型 和 外 层 DSL 两 方面 展开 。 表 6- 2 


设计 的 一 些 代 表 性 语言 特性 。 
表 6-1 用 于 DSL 设 计 的 代表 性 Scala 特 性 


语言 特性 Scala 的 具体 做 法 
灵活 的 语法 2 层 语 法 简练 ， 有 许多 手段 可 使 DSL 更 贴近 真实 的 领域 用 语 
[: 
可 省 略 方法 调用 的 点 符号 
分 号 推断 
中 组 运算 符 
可 省 略 方法 调用 的 圆 括号 


Scala 是 面向 对 象 的 。 它 与 Java 使 用 相同 的 对 象 模型 ， 然 后 利用 自身 先进 的 类 型 系统 ， 在 很 
多 方面 进行 了 扩展 
Scala 的 对 象 语义 : 
。 trait 的 用 途 是 基于 mixin 的 实现 继承 ( 见 6.10 节 文献 [12]) 
昌 类 型 成 员 和 泛 型 关 型 参数 这 两 项 语 言 特性 都 可 以 使 类 具有 正 交 扩 展 能 力 ( 见 
可 扩展 的 对 象 系统 6.10 节 文献 [13]) 
。 i 类 型 标注 (self-type annotation) 对 抽象 的 正 交 扩展 进行 约束 〈 见 6.10 节 文献 
[14] 
。 Case 类 的 用 途 是 实现 值 对 象 “1] 
1】 普通 类 和 case 类 的 区 别 在 于 ，case 类 的 构造 丽 数 调用 更 加 简单 ， 可 以 使 用 默认 的 相等 性 语义 ， 
以 及 支持 模式 匹配 
Scala 是 一 种 多 范式 的 编程 语言 ， 结 合 了 面向 对 象 和 函数 式 编程 的 语言 特性 
为 何 采取 面向 对 象 与 档 数 式 相 结合 的 方式 ? 
六 eb 。 Scala 中 的 函数 是 第 一 类 值 ， 从 类 型 系统 层面 开始 ， 就 支持 高 阶 函 数 。 用 户 可 将 自 定 
面 数 头 编程 能 义 DSL 控 制 结构 写成 闭 包 ， 然 后 当做 一 般 的 数据 类 型 传道 
。 在 纯粹 的 面向 对 象 语言 中 ， 事物 都 要 套 入 类 的 设计 形式 ， 不 管 它 本 来 的 领域 含 
0 Scala 混 合 了 面向 对 象 与 函数 特性 ， 更 有 利于 模型 贴近 问题 
Scala 通 过 结构 化 类 型 定义 〈structural types， 见 6.10 节 文献 [2]) 支持 鸭子 类 型 
人 与 Ruby 鸭 子 类 型 的 差别 : 
Scala 的 鸭子 类 型 是 静态 检查 的 
Scala 通 过 它 的 implicit 语言 结构 取得 开放 类 的 效果 ，3.2 节 的 补充 内 容 “Scala implicits 
”中 有 相关 介绍 
限定 了 词法 作用 域 的 开放 类 与 Ruby 夕 子 补丁 的 差别 : 
Scala 的 implicits 人 的 限制 ， 通 过 隐 式 转换 方式 添加 的 行为 ， 需 要 明确 导 
具体 的 词法 作用 域 才 生效 ( 详 见 6.10 节 文献 [2]) 
隐 合 参数 API 光 用 中 可 以 洛 关 分 参数 ， 让 纺 译 吕 去 失业 。 这样 修 可 以 入 从 次 法 ， 提 高 DL 的 
SD Eg 6 1 寺 性 
模块 化 的 对 象 组 合 方式 有 独特 的 对 象 概念 ， 可 用 来 定义 具体 的 DSL 模 块 。 你 可 以 将 一 些 DSL 结 构 定义 为 抽象 成 
员 ， 推 迟 进行 具体 实现 
[1] 普通 类 和 case 类 的 主要 区 别 在 于 ，case 类 的 构造 函数 调用 更 加 简单 ， 可 以 使 用 默认 的 相等 性 语义 ， 以 及 支持 模式 匹配 。 
这 些 特 性 汇集 在 一 起 ， 使 Scala 成 为 一 种 非常 适用 于 内 部 DSL 设 计 的 JVM 语 言 。 不 过 它 毕 竟 是 一 种 
新 语言 ， 难 免 令 人 犹 聊 。 在 团队 里 引入 一 种 新 语言 ， 从 技术 和 文化 方面 来 说 ， 都 是 很 入 的 挑 成 * 
公司 可 能 已 II 相当 数量 的 客户 应 用 也 运行 于 Java 平 台 ， 程 序 员 群 体 
也 花费 了 无 数 精力 去 熟悉 各 式 各 样 的 Java 框 架 。 你 双 能 为 了 迎接 一 种 新 的 编程 语言 ， 而 放弃 多 年 的 
积累 吗 ? 季 好 ，Scala 允 许 你 循序 渐进 地 完成 转换 。 请 看 下 一 有。 


6.2 迈 向 Scala DSL 的 第 一 步 


Scala 是 一 种 很 好 的 内 部 DSL7 


语言 ， 但 


王 何 六 
慢 慢 普及 


新 技术 。 
上 采用 ， 


一 边 向 Scala 过 流 
有 不 少 发 挥 空 


的 投入 ， 


已 经 


拷 技术 都 要 控制 引入 的 六 奏 ， 


置身 于 JVM 之 上 ， 拥 有 与 Java 互 操作 的 能 力 ， 这 是 Scala 
° Scala DS 
间 。 图 6-2 给 出 了 一 些 策略 ， 可 以 信 


工 的 第 一 


单 人 


以 免 } 


这 


多 


步 可 以 有 很 


重要 


走 法 ， 


丝 八 


:的 天 


点 不 足以 说 服 经 理 在 
兽 加 混乱 的 风险 。 一 般 可 以 先 在 不 太 关键 的 业务 


尤 势 。 企 业 可 以 一 边 


在 保 


开发 环境 中 


引入 Scala 这 种 


保留 Java 方 面 


持 基 本 Java 


象 不 变 的 前 所 


发 团 


了 从 参考 。 


(项 目的 交付 主线 沿用 Java) 


TT 


通过 Scala DSL EE 
测试 Java 对 象 用 Sc SL 建 模 非 关键 功能 


用 Scala DSL 包 装 Java 对 象 
人 Scala 不 需要 一 开始 就 应 用 到 生产 代码 之 中 。 这 里 列举 了 一 些 学 步 的 方案 ， 选 择 何 种 顺序 你 


从 图 6-2 中 可 以 看 出 ， 项 目的 交付 主线 可 以 继续 沿用 Java， 团 队 中 的 部 分 成 员 在 辅助 性 工作 中 接触 
Scala。 下 面 几 个 小 节 将 详细 说 明 图 中 的 几 种 起 步 方 式 。 


6.2.1 通过 Scala DSL 测 试 Java 对 象 


测试 是 开发 过 程 中 的 核心 任务 之 一 ， 同 时 它 的 技术 和 框架 都 有 很 大 的 选择 空间 。 测 试 套件 的 
性 不 亚 于 生产 代码 库 。 业 内 人 士 正 竭 尽 全 力 ， 硕 望 将 测试 套件 表达 得 更 到 位 、 更 详尽 。 


DSL 已 经 成 为 测试 框架 必 不 可 少 的 一 部 分 。 你 只 要 选择 一 种 基于 Scala DSL 的 测试 框架 ， 束 能 立即 

开始 学 习 用 Scala 语 言 设 计 DSL 。 例 如 ScalaTest 〈《 见 6.10 节 文献 [8]) 就 是 这 样 一 种 DSL 框 架 ， 你 可 以 
用 它 编 写 DSL， 对 Java 和 Scala 类 进行 测试 。 一 开始 并 不 要 求 你 掌握 Scala 类 的 写法 ， 只 要 在 这 类 测 

斌 框架 内 重用 原 有 的 Java 类 即 可 ， 目 的 是 熟悉 一 下 基于 DSL 的 开发 方式 和 环境 。 


6.2.2 用 Scala DSL 作 为 对 Java 对 象 的 包装 


本 书 一 再 提 及 Scala 与 Java 的 完美 契合 ， 我 们 可 以 利用 Scala 的 这 个 特点 ， 为 Java 对 象 加 上 一 层 包 
装 ， 获 得 更 灵巧 、 丰满 的 表达 。 3.2.2 节 可 作为 这 种 手法 的 实证 ， 我 们 借助 Scala 的 力量 ， 把 Java 对 
象 打 把 } 成 一 副 精 明 能 干 的 样子 ， 是 相当 有 说 服 力 的 。 通过 对 这 和 手法 的 实践 ， 你 将 掌握 如 何 运 
Scala 语 言 在 Java 对 象 模型 上 创 咎 DSL， 这 是 一 条 简单 高 效 的 学 习 途 径 。 


6.2.3 将 非 关键 功能 建 模 为 Scala DSL 
大 型 应 用 常 包含 一 些 不 太 关键 的 部 分 。 你 可 以 跟 客 户 协 商 ， 把 其 中 一 些 次 要 部 分 作为 Scala DSL 设 
计 的 试验 田 。 如 果 不 愿意 放弃 主要 的 Java 编 译 模式 ， 那 么 可 以 把 Scala DSL 做 成 脚本 ， 然 后 通过 

Java 6 提供 的 ScriptEngine 来 运行 。 


下 面 详 述 Scala 各 项 特性 的 具体 用 法 ， 深 入 探讨 怎样 用 它们 建立 领域 模型 ， 然 后 编排 成 流畅 的 


| 


要 


由 


代码 提示 。 后 面 的 段落 含有 大 量 代 码 片 段 ， 我 会 插入 对 一 is 解释 必要 的 言 
特性 ， 以 便 读 者 理解 实现 中 的 细微 之 处 。 如 有 需要 ， 还 可 以 查阅 本 书 附录 中 相应 语言 的 速 查 


上 二 


讨论 中 将 继续 沿用 金融 中 介 领 域 的 例子 ， 逐 步 应 用 不 同 的 特性 去 修补 和 改良 DSL 的 设计 ， 最 后 形 
成 一 种 可 以 交付 使 用 的 完善 DSL。 这 段 旅程 将 充满 乐趣 。 


6.3 正式 启程 


本 章 所 需 的 背景 知识 你 已 经 了 解 得 差不多 了 ， 


I 


实用 例 ， 观 察 在 Scala 实 现 语言 的 作用 


我 选择 的 用 例 跟 之 前 讨论 Ruby、Gro 
不 难看 出 其 中 思路 的 变化 。 ee 
同 。 首 先 我 们 了 解 一 下 Scala 有 了 哪些 特 ' 竹 可 以 提 六 


站 Scala 知 识 点 


。 Scala 语 言 的 面向 对 象 特性 。Scala 的 类 和 继承 结构 有 多 
。 Scala 语 言 拥有 类 型 推断 特性 ， 它 的 运算 符 等 局 
。 不 可 变 变 量 (immutable variable) 有 
。 Scala 语 言 的 case 类 和 case 对 象 ， 其 特点 适 
可 用 于 设计 mixin 和 多 继承 。 


。 Scala 的 trait 特性 


6.3.1 语法 层面 的 表现 力 


mT 


i 


i。 本 章 将 研究 证 券 交 易 领 域 
秆 用 例 转 化 为 生动 的 DSL 。 


用 例 差 不 多 。 这 样 从 


:把 前 后 的 例子 互相 对 照 ， 就 


静态 类 型 语言 和 动态 语言 的 DSL 设 计 思路 也 截然 不 
FDSL 语 法 的 表现 力 。 


| 于 设计 函数 式 的 
于 设计 不 可 变 的 值 对 象 。 


一 门 语言 的 语法 是 富 于 表现 力 还 是 繁 见 拖 省 


法 ， 程 序 员 可 


记得 2.1.2 节 老 鲍 的 抱怨 吗 ? Java 给 指令 处 理 
Scala 里 然 也 和 Java 语 言 一 样 是 静态 类 型 世 
F 扰 。 代 码 清单 6-1 展 示 了 一 段 常见 此 


DSL 的 了 
已 存在 的 一 个 账户 列表 。 


设计 方式 。 
法 ;语法 灵活 ， 可 省 略 加 
象 。 


线 之 隔 。 非 程序 员 用 


代码 清单 6-1 “Scala 的 语法 兼 具 表 现 力 和 简洁 性 


能 就 觉得 烦 瑛 到 了 极点 。5.2.3 节 5 为 交易 DSL 设 计 Ruby 解 释 器 时 就 1 说 过 这 个 问题 。 还 
虽 加 了 一 些 不 必要 的 语法 复杂 性 ， 老 鲍 很 有 意见 。 


觉得 表现 充分 的 语 


它 对 外 呈现 了 较为 精简 的 表面 语法 ， 可 以 减少 对 
代码 ， 它 的 功能 是 将 CLientAccount 对 象 放 入 


val al 
val a2 


ClientAccount (no 
ClientAccount (no 


val accounts = List(al，a2) 外 类 型 推断 


val newAccounts = 


ClientAccount(no = "acc-345", name = "Hugh P.") :: 


newAccounts drop 1 @ 可 省 略 的 圆 括号 


"acc-123", 
"acc-234", 


name = "John J.") 
name = "Paul M.") 


@ 命名 参数 和 默认 参数 


即使 你 不 熟悉 scala 语言， 也 能 毫 无 困难 地 看 懂 这 段 代码 。 表 6-2 列 出 的 几 项 特性 正 是 代码 简明 的 关 
键 因素 。 
表 6-2 ”使 Scala 语 法 简洁 的 各 项 特性 ， 以 代码 清单 6-1 为 参照 

Scala 的 简洁 性 来 源 对 DSL 设 计 的 影响 


动 推断 句 末 分 号 ee I 接 降低 了 对 DSL 语 法 的 干扰 
ClientAccount 了 3 J 参 类 被 声 明 为 case 类 〈 见 代码 清单 6-3) ， 所 
命名 参数 和 默认 参数 义 其 天 Cr 交 为 简便 。 De 已 经 在 类 定义 中 设置 了 默 i 
网 化 时 七 。 命 名 参数 和 默认 参数 对 于 提高 DSL 脚 本 的 可 读 性 有 1 
类 型 推断 多 个 由 十， 不 需要 指定 结果 列表 的 类 型 @， 编 译 器 会 帮 你 推断 
a 我 们 通过 :: 运 算 on I clientAccount 对 象 @。 实际 上 等 同 于 在 List 实 
运算 符 等 同 于 方法 例 上 调 oe = "acc-345", name = "Hugh P." 可 
成 运算 符 的 这 两 项 措施 大 大 提 和子 代 码 片段 的 可 读 性 
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于 在 对 比 


学 习 各 和 


语言 的 


6.3.2 建立 领域 抽象 


设计 Scala DSL 时 ， 
日 件 的 特 化 ， 


模 亚 


天 


山 乡 


操 人 


FE 可 jj 


过 函数 


不 同 实现 惯例 。 


kn 


中 TD 


通常 需要 有 


屋 。 然 后 运 


个 对 象 模 型 作为 基本 抽象 


再 将 它们 


合 起 来 ， 构 


与 解答 域 中 符合 条 件 的 mixin 


象 象 来 表示 ， 


它 和 不 


式 》 


图 6-3 ”Scala 兼 具 面 向 对 象 编程 和 画 数 式 编程 功能 ， 
向 对 象 特性 ， 可 以 从 类 型 和 值 的 角度 进行 抽象 ， 
进行 组 合 。 而 在 画 数 式 特性 这 边 ，Scala 给 你 准备 了 高 阶 画 数 、 闭 包 


| 用 了 Scala 兼 具 


组 图 


然后 用 组 合子 来 组 织 它们 。 


从 类 型 和 值 的 
角度 进行 抽象 


也 包括 隐 含 参数 


人 


可 读 


性 起 了 下 百 
等 高 
地 | 司 


象 仍然 出 目 


和 学 到 的 领域 概念 ， 男 


一 方面 也 便 


j 子 类 型 化 手段 


成 更 大 型 的 # 


SA 
相向 对 象 和 画 数 式 功 和 EE 双重 优势 的 特点 


(面向 对 象 ) 
通过 trait 实 现 mixin 
以 子 类 型 化 方 | 
式 进 行 特 化 
组 合成 模块 
法 + 闭 包 + 组 合子 oh 
方法 + 闭 包 + 组 合 了 (函数 式 ) 


功能 丰富 的 函数 式 抽 象 


用 模块 将 两 方面 的 成 果 合 并 起 来 ， 得 到 最 终 的 抽象 


要 构建 交易 DSL 的 实现 ， 


首先 从 建立 问题 域 的 基本 抽象 开始 。 


象 。 


实现 各 种 
入 + 中 的 


象 实现 扩 


展 性 的 方 


两 者 都 可 用 于 建设 领域 模型 。 运 用 Scala 的 面 
以 子 类 型 化 的 方式 特 化 一 个 组 件 ， 然 后 通过 mixin 
“组 合子 等 工具 。 最 后 ， 可 以 


1. 证 券 
代码 清单 6-2 是 对 Instrument 的 抽象 ， 也 就 是 对 证 券 交易 所 中 买卖 的 证 券 进行 建 模 。 代码 中 首先 
定义 Instrument 的 一 般 接 人 类 型 以 及 几 种 FixedIncome 类 型 的 证 券 进行 
特 化 。〈 如 果 需 要 了 解 各 种 证 券 类 型 的 异同 ， 请 查阅 4.3.2 节 的 补充 内 容 。) 

代码 清单 6-2 Instrument 的 Scala 模 型 

package api 


import java.util.Date 
import Util._ 


@ 几 个 单 例 对 象 


Sealed abstract class Currency(code: String) 
case object USD extends Currency("US Dollar") 
case object JPY extends Currency("Japanese Yen") 
case object HKD extends Currency("Hong Kong Dollar") 


trait Instrument { 四 Mixin 式 继承 


val isin: String 
} 


case class Equity(isin: String, dateOofIssue: 
extends Instrument @ Mixin 式 继承 


Date = TODAY) 


trait FixedIncome extends Instrument { @ Mixin 式 继承 
def dateofIssue: Date 
def dateofMaturity: Date 
def nominal: BigDecimal 


} 

case class CouponBond( 
override val isin: String, 
override val dateOfIssue: Date = TODAY, 
override val dateofMaturity: Date, 


val nominal: BigDecimal, 
val paymentSchedule: Map[String, BigDecimall]) 
extends FixedIncome 


DiscountBond( 
val isin: String, 
override val dateOfIssue: Date = TODAY, 
override val dateofMaturity: Date, 
val nominal: BigDecimal, 
val percent: BigDecimal) 
extends FixedIncome 


case class 
override 


受到 侦 发 复 灯 性 


的 干扰 。 


领域 语汇 在 上 面 的 实现 中 表达 得 很 清晰 ， 而 且 领 域 模 型 基本 没有 
转发 复杂 性 的 详细 讨论 请 参阅 附录 A。) 这 是 本 章 建 立 的 第 一 个 领域 模型 ， 
下 一 些 功夫 ， 看 看 哪些 Scala 特 性 对 模型 的 表现 力 和 简洁 性 有 所 页 献 。 


此 处 被 


。 单 例 (singleton) 对 象 ， 因为 它 只 实例 化 一 次 的 特点 ， 
个 特 化 实体 。 单 例 对 象 是 Scala 语 言 实 
Java 语 言 中 静态 成 员 的 所 有 不 足 。 


。 在 trait 的 组 织 下 ， 通 过 继承 @@ 来 实现 一 条 


。 case 类 具有 简化 的 构造 函数 调用 形式 。 
我 们 还 要 再 构建 儿 个 抽象 才能 开始 编写 DSL 脚 本 。 


2. 账户 和 交易 


代码 清单 6-3 是 Account 模型 的 Scala 实 现 。 客 
汪 


代码 清单 6-3 ”Account 模型 的 Scala 实 现 


! 介 在 Account 这 


网 Singleton 模 式 (参见 6.10 节 文献 [3]) 


' 可 扩展 的 对 象 层次 关系 。 


(关于 


我 们 不 妨 在 它 身 上 多 


于 实现 Currency 类 @ 的 几 
的 方式 ， 弥 补 了 


T 


package api 


abstract class AccountType(name: String) 
case object CLIENT extends AccountType("Client") 
case object BROKER extends AccountType("Broker") 


import Util._ 
import java.util.Date 


abstract class Account(no: String, name: String, openDate: Date) { 
val accountType: AccountType 


private var closeDate: Date 
var creditLimit: BigDecimal 


100066 ”设置 默认 信用 额度 


def close(date: Date) = { 
closeDate = date 

} 

} 


case class ClientAccount(no: String, name: String, 
openDate: Date = TODAY) 
extends Account(no, name, openDate) { 
val accountType = CLIENT 


} 


case class BrokerAccount(no: String, name: String, 
openDate: Date = TODAY) 
extends Account(no, name, openDate) { 
val accountType = BROKER 


} 


代码 清单 6-4 Trade 模型 的 Scala 实 现 


除了 Account 和 Instrument 模型 ， 我 们 还 需要 一 个 代表 证 券 交 易 本 身 的 


基本 


注 


package api 
import java.util.Date 


trait Trade { 
def tradingAccount: Account 
def instrument: Instrument 
def currency: Currency 
def tradeDate: Date 
def unitPrice: BigDecimal 
def quantity: BigDecimal 
def market: Market 
def principal = unitPrice * quantity 


var cashValue: BigDecimal = _ 
var taxes: Map[TaxFee, BigDecimal] = 


} 


trait FixedIncomeTrade extends Trade { 
override def instrument: FixedIncome @ 覆盖 方法 ， 特 化 返回 类 型 
var accruedInterest: BigDecimal = _ 


} 


trait EquityTrade extends Trade { 
override def instrument: Equity @ 覆盖 方法 ， 特 化 返回 类 型 
} 


按照 交易 证 券 所 属 的 类 ， 我 们 定义 了 两 种 类 型 的 交易 。 稍 后 你 会 了 解 ， 


同 的 特征 ， 尤 其 是 现金 价值 的 计算 方法 很 不 一 样 。 (关于 交易 的 现金 价值 评 


容 。) 代码 清单 6-4 还 有 一 点 值得 注意 ， 我 们 覆盖 了 instrument 方法 
反映 每 一 类 交易 所 针对 的 证 券 类 型 。 


这 两 


种 类 型 的 交易 具 


:@， 


F: 它 的 返 


参阅 4.2.2 季 的 


| 


类 型 ] 


ED 


元 


我 们 仅仅 为 编号 交 匈 创造 DSL 而 设置 相关 上 下 文 就 已 经 写 了 这 么 多 代码 ， 下 一 节 该 正式 动笔 了 。 
顺便 还 要 谈 谈 构 建 中 用 得 上 的 Scala 特 性 


6.4 制作 一 种 创建 交易 的 DSL 


我 一 向 认为 应 该 先 看 到 实物 ， 再 去 研究 它 是 怎么 形成 的 。 所 以 暂时 别管 具体 怎么 实现 ， 先 看 看 我 
们 的 交易 DSL 怎 么 创建 新 交 
val fixedIncomeTrade = 


200 discount_bonds IBM 
for_client NOMURA on NYSE at 72.ccy(USD) 


val equityTrade = 
200 equities GOOGLE 
for_client NOMURA on TKY at 10000.ccy(JPY) 


第 一 项 定义 fixedIncomeTrade 创建 了 一 个 FixedIncomeTrade 的 实例 ， 为 客户 帐号 NOMURA 
在 纽约 证 券 交 易 所 (NYSE) 按 72 美 元 的 单价 买 入 200 张 IBM 的 折价 债券 (DiscountBond ) 。 


第 二 项 定义 equityTrade 创建 了 一 个 EquityTrade 的 实例 ， 为 客户 帐号 NOMURA 在 东京 证 券 交 
易 所 (TKY) 按 10 000 日 元 的 单价 卖 出 200 股 Google 的 股票 。 


下 Scala 知 识 点 


。 隐 含 参数 (implicit parameter) 。 用 户 没 有 明确 指定 时 ， 隐 含 参数 由 编译 器 自动 提供 。 特 别 
适用 于 设计 精简 的 DSL 语 法 。 


。 隐 式 类 型 转换 是 实现 “限制 了 词法 人 
补丁 ， 但 比 猴子 补丁 更 好 用 。 


。 命名 参数 和 默认 参数 用 在 Builder 模 式 的 实现 当中 ， 可 以 省 略 不 少 拖泥带水 的 代码 。 
如 果 不 走 DSL 的 路 线 ， 而 是 按照 一 般 的 API 设 计 方 式 ， 通 过 某 个 具体 类 的 构造 函数 来 完成 交易 创建 
过 程 ， 那 么 代码 差不多 会 是 下 面 这 样 。 代 码 清单 6-5 先 给 出 FixedIncomeTrade 的 具体 实现 ， 然 
后 演示 了 它 的 实例 化 过 程 。 


代码 清单 6-5 ”FixedIncomeTrade 的 实现 和 实例 化 示例 


IT 


用 域 的 开放 类 ”的 秘 决 。 这 种 开放 类 近似 于 Ruby 的 猴子 


package api 


import java.util.Date 
import Util._ 


case class FixedIncomeTradeImp1( 实现 FixedIncomeTrade trait 
val tradingAccount: Account, 
val instrument: FixedIncome， 
val currency: Currency, 
val tradeDate: Date = TODAY, 
val market: Market, 
val quantity: BigDecimal, 
val unitPrice: BigDecimal) extends FixedIncomeTrade 


val tl1 = ”实例 化 示例 
FixedIncomeTradeImpl( 
tradingAccount = NOMURA， 
instrument = IBM, 
currency = USD, 
market = NYSE, 


gquantity = 100, 
unitPrice = 42) 


DSL 与 一 般 API 的 差异 明显 。DSL 版 的 创建 过 程 更 自然 ， 更 适合 领域 用 户 阅 读 ;，API 版 的 编程 味道 
比较 浓 ， 有 许多 语法 细节 需要 注意 ， 例 如 分 隔 参数 项 的 逗号 ， 实 例 化 时 要 写 出 类 名 等 。 稍 后 你 会 
发 现 ， 可 读 性 强 的 DSL 版 为 了 实现 操作 的 顺序 执行 ， 同 样 要 满足 许多 约束 条 件 。 如 果 看 重 顺 序 的 
灵活 性 ， 可 以 选择 Builder 模 式 (参见 6. 10- 节 文 献 [3]) ， 但 那样 会 带 来 Builder 对 象 的 可 变性 问题 和 
方法 链 的 收 尾 问 题 (参见 6.10 节 文献 [4]) 。 


本 节 开头 介绍 了 DSL 脚 本 的 未 来 发 展 趋势 ， 现 在 我 们 进入 实现 环节 。 
6.4.1 实现 细节 


请 你 再 好 好 对 比 一 下 6.4 节 开头 的 DSL 脚 本 和 代码 清单 6-5 中 普通 的 构造 夯 数 调用 写法 。DSL 脚 本 中 
几乎 没有 与 领域 语义 无 关 的 语法 结构 ， 这 就 是 两 者 最 明显 的 区 别 。 前 面 说 过 ，Scala 人 允许 省 略 表示 
方 法 调用 的 点 运算 符 和 方法 参数 使 用 的 圆 括号 。 就 算 在 这 样 的 有 利 条 件 之 下 ， 如 有 果 没 有 一 种 足够 
灵活 的 手段 ， 还 是 不 能 把 各 种 成 分 合理 地 结合 起 来 ， 成 为 符合 语言 逻辑 的 脚本 。 那 么 ， 连 接 各 语 
言 成 分 的 秘诀 是 什么 ? 


1. 隐 式 转换 


秘诀 是 Scala 语 言 的 jmplicits 特性 ! 我 们 以 创建 FixedIncomeTrade 为 例 说 明 : 


val fixedIncomeTrade = 
200 discount_bonds IBM 
for_client NOMURA on NYSE at 72.ccy(USD) 


人 语法 糖 ， 补 上 原来 省 略 的 点 符号 和 圆 括号 ， 那 么 代码 将 变 成 下 面 这 样 的 规范 形 
工 N 


val fixedIncomeTrade = 
200.discount_bonds(IBM) 
.for_client (NOMURA) 
.ON(NYSE) 
.at(72.ccy(USD)) 


当 所 有 的 方法 调用 和 参数 都 披挂 上 它们 应 有 的 符号 ， 看 上 去 就 和 2.1.2Java 版 指令 处 理 DSL 所 用 的 
Builder 模 式 相 差 无 几 了。 当前 实现 可 以 看 做 Builder 模 式 的 一 种 隐 式 实现 。 而 我 们 也 本 实在 实现 中 
运用 了 Scala 的 隐 式 转换 特性 ， 令 各 部 分 以 正确 的 次 序 组 织 起 来 ， 最 终 铺陈 为 有 意义 的 DSL 语 句 。 


我 们 以 200 discount_bonds IBM 为 例 说 明 其 原理 。 只 要 掌握 这 个 词组 的 构建 机 制 ， 例 子 的 其 
他 部 分 都 不 在 话 下 ， 看 看 完整 的 代码 ， 就 知道 每 个 零件 的 位 置 和 作用 。 请 看 下 面 的 代码 片段 : 
type Quantity = Int 


class InstrumentHelper(qty: Quantity) { 
def discount_bonds(db: DiscountBond) = (db, qty) 


} 
implicit def Int2InstrumentHelper(qty: Quantity) = 
new InstrumentHelper (qty) 


我 们 定义 的 InstrumentHelper 类 接受 一 个 Int 作为 输入 ， 类 中 定义 了 discount_bonds 方 

法 。discount_bonds 方法 的 参数 是 一 个 DiscountBond 实例 ， 返 回 由 给 定 债券 及 其 数量 组 成 
的 一 个 Tuple2。 接 着 我 们 定义 了 从 Int 到 InstrumentHelper 类 的 ijmplicit 转换 。 其 作用 
自然 是 将 输入 的 Int 不 动 声 色 地 转换 为 输出 的 InstrumentHelper 实例 ， 我 们 才 得 以 在 实例 上 
调用 discount_bonds 方法 。 由 于 Scala 人 允许 省 略 点 符号 和 圆 括号 ， 调 用 过 程 可 以 写成 中 组 形 
式 ， 即 200 discount_bonds IBM ， 这 样 看 上 去 更 自然 。 


只 要 用 户 定义 好 转换 ，Scala 会 在 脚本 的 调用 点 插入 必要 的 语义 结构 。 脚 本 的 其 余部 分 也 是 同样 的 
原理 ， 在 重重 转换 之 际 ， 构 造 FixedIncomeTrade 实例 所 需 的 参数 也 收集 到 位 ， 最 终 传 入 一 个 
能 生成 FixedIncomeTrade 实例 的 方法 。 隐 式 转换 有 一 些 需 要 掌握 的 惯用 法 ， 等 看 到 完整 代码 
时 一 并 讲解 。 现 在 先 看 看 图 6-4， 图 中 详细 说 明了 完整 的 脚本 执行 过 程 。 


200 discount bonds IBM for client NOMURA on NYSE at 72. Sh 


: : 

| | 用) | 

| (调用 ) | i | (返回 ) 
+ | {返回 ) (返回 ) RichInt 


(返回 ) 
InstrumentHelper 
(200, IBM) (调用 ) (调用 ) (72,USD) 
Y 
AccountHelper 


(NOMURA, 200, IBM) 
: (调用 ) 


(返回 ) 


表示 A 被 隐 式 转换 为 B 


MarketHelper 


{NYSE, NOMURA, 200, IBM) 
' 

FixedIncomeTrade 1 

4 


PriceHelper 


Tuple2Trade 人 -~ ((72,0USD) ,NYSE, NOMURA, 200, IBM) 


图 6-4 ”一连串 的 隐 式 转换 ， 最 终 构造 出 FixedIncomeTrade 实例 。 从 左 至 右 阅读 此 图 ， 跟 随 着 
箭头 注意 观察 每 一 次 隐 式 转换 和 创建 辅助 对 象 的 子 过 程 


真正 理解 图 6-4， 需 要 展示 一 个 藏 在 API 身 后 悄然 发 挥 神秘 作用 的 对 象 ， 详 细 分 析 它 的 全 部 代 
码 。 


2. 一 连 串 的 隐 式 转换 


仔细 观察 图 6-4， 不 难 发 现 此 起 彼 伏 的 隐 式 转换 其 实在 默默 扮演 着 builder 的 角色 。 这 些 转 换行 为 未 
渐 拼 合 出 最 后 的 FixedIncomeTrade 对 象 。 代 码 清单 6-6 定 义 了 执行 各 个 转换 的 辅助 函数 。 


代码 清单 6-6 ”TradeImplicits 定义 的 转换 函数 


package dsl 


import api._ 
object TradeImplicits { 


type Quantity = Int 
type WithInstrumentQuantity = (Instrument, Quantity) 
type WithAccountInstrumentQuantity = 
(Account, Instrument, Quantity) 
type WithMktAccountInstrumentQuantity = 
(Market, Account, Instrument, Quantity) 
type Money = (Int, Currency) 


class InstrumentHelper(gty: Quantity) { 


def discount_bonds(db: DiscountBond) = (db, qty) 


class AccountHelper (wiq: WithInstrumentQuantity) { 
def for_client(ca: ClientAccount) = (ca, wiq._1, wiq._2) 


class MarketHelper (waiq: WithAccountInstrumentQuantity) { 
def on(mk: Market) = (mk, waiq._1, waiq._2, waiq._3) 


class RichInt(v: Int) { 
def ccy(c: Currency) = (v, c) 


class PriceHelper (wmaiq: WithMktAccountInstrumentQuantity) { 


def at(c: Money) = (c, wmaiq._1, wmaiq._ 2, wmaiq._3, wmaiq._4) 


} 
//.. 
} 
代码 清单 6-7 继 续 处 理 TradeImp1licits 对 象 ， 它 把 代码 清单 6-6 列 出 的 转换 函数 都 定义 成 Scala 的 


implicit 。 


代码 清单 6-7 TradeImplicits 定义 的 ijmplicits 


object TradeImplicits { 


续 代 码 清单 6-6 


implicit def quantity2InstrumentHelper(qty: Quantity) 
new InstrumentHelper (qty) 

implicit def withAccount(wiq: WithInstrumentQuantity) = 
new AccountHelper (wiq) 

implicit def withMarket(waiq: WithAccountInstrumentQuantity) = 
new MarketHelper (waiq) 


new PriceHelper (wmaiq) 
implicit def int2RichInt(v: Int) = new RichInt(v) 


import Util._ 
implicit def Tuple2Trade( 
t: (Money, Market, Account, Instrument, Quantity)) = 
{t match 区 
case ((money, mkt, account, ins: DiscountBond, qty)) => 


FixedIncomeTradeImpl( 
tradingAccount = account, 
instrument = ins, 
currency = money._2, 
tradeDate = TODAY, 
market = mkt, 
quantity = qty, 
unitPrice = money._1) 


山 


implicit def withPrice(wmaiq: WithMktAccountInstrumentQuantity) = 


TradeImplicits 对 象 属于 ds1 包 ， 而 所 有 的 领 eh he 这 种 看 似 不 必要 的 
划分 有 其 条 意 。 我 们 曾 讨 论 过 用 基本 领域 模型 作为 底层 基础 ， 然 后 在 上 面 建立 DSL 门 面 的 设计 惯 


例 ， 想 来 了 四? 这 个 例子 也 按照 同样 的 思路 ， 把 所 有 的 领域 模型 了 


象 放 入 api 包 ， 语 言 层 的 抽 


象 则 放 在 dsl 包 里 。 另 外 ， ee 
种 DSL。 设 计 DSL 时 也 应 该 始终 遵 


品 利用 Scala 语 言 的 implicits 特性 可 
Groovy 语 言 in ac lease 


于 以 后 对 同一 个 领域 模型 建立 


类 似 于 Ruby 语 言 的 猴子 补丁 和 
F 进 行 修改 的 类 ， Scala 提 供 了 控制 其 可 见 
好 


围 的 方法 。 只 要 针对 需要 用 到 新 增 0 的 模块 ， 编 译 器 会 处 理 


他 事情 。 这 下 特性 不 会 像 Ruby 的 猴子 补 ] 省 
3. Implicits 和 词法 作用 域 
我 们 利用 implicits 特性 ， 通 过 过 INt 隐 式 针 换 为 RichInt 类 ， 


法 。 如 果 上 述 隐 式 转换 在 全 局 命 0 则 所 有 线程 都 能 


子 补丁 时 就 已 经 讨论 过 这 样 做 的 明显 


在 适当 的 作用 域 之 内 。 也 就 是 说 ， 你 应 访 划 证 人 式 转换 的 词法 作 


import TradeImp1lLicits, 


& 管 隐 式 转换 优点 突出 ， 可 是 使 用 它 时 不 外 
龙 去 脉 。 为 此 ，Scala 编 译 器 特别 提 


， 以 免 影 响 其 他 线程 。 


By 


过 


| 


~ 


在 Int 身上 添加 了 一 个 ccy 方 
这 一 修改 。 我 们 早 在 介绍 Ruby 猴 
准则 :， implicits 必 须 被 限制 
用 域 ， 然后 在 前 面 明 确 声明 


直观 地 表现 在 调试 时 又 难以 捉摸 其 来 


共 了 若干 编译 参数 作 大 


6.10 方 文献 2) 。 


你 刚刚 完成 平生 第 一 段 Scala DSL， 
来 龙 去 脉 ， 否 则 请 多 看 几 遍 图 6-4， 上 


好 了 ， 现 在 你 被 Scala 激 起 的 兴奋 心情 


， 方 便 你 检查 隐 式 转换 ( 详 见 


如 想 的 感觉 < 你 一 定 要 掌握 本 例 实现 的 
蛙 解 也 会 越 来 越 深入 。 


交 平 复 了 。 我 们 换个 冯 


Scala DSL 时 需要 注意 的 关键 问题 。 


6.4.2 DSL 实 现 模 式 的 变化 


仔细 观察 我 们 在 领域 模型 上 搭建 的 DSL 层 代码 ， 可 以 辩 认 出 一 


模式 显而易见 。 按 照 DSL 脚 本 解析 也 
逐步 构建 一 个 n 元 组 。6.4.1 节 提 到 ，3 
案 会 单 独 设立 一 个 可 变 的 builder 本 
体 。 传 统 实现 呈现 一 种 命令 式 风 格 ， En 


令 静 的 心态 ， 考 虑 几 个 创建 


模式 的 轮廓 ， 再 看 看 图 6-4， 这 种 
。 我们 连续 运用 Scala 隐 式 转 换 ， 
其 分 时 Bui 模式 。 只 不 过 传统 的 实现 方 


新 ， 同 时 每 次 方法 调用 都 反 回 builder 对 象 目 和 二 。 相 
不 同 的 类 ， 要 靠 Scala 的 隐 式 转换 把 所 有 的 调用 
元 组 经 过 隐 式 转换 ， 作为 输入 送 到 下 一 环节 ， 生 度 下 一 个 


你 完全 可 以 选择 传统 的 实现 方案 。 忆 


写 起 来 十 分 灵活 方便 ， 但 问 和 后 记 弛 所 


献 [4]) 。 相 比 之 下 ， 本 例 当 前 


一 个 设计 决策 。 


传统 的 Builder 模 式 有 一 个 可 变 的 builder 对 象 ， 
对 该 builder 对 象 的 修改 。 本 例 中 的 Builder 模 式 实 


I 


易 对 象 就 提早 终止 调用 序列 ， 邯 久 六 主 


天 用 了 一 种 不 可 变 的 Builder 模 式 变 


产生 一 个 多 元 组 ， 然 后 该 多 


什么 不 同 吗 ? 传统 Builder 模 式 的 方法 调用 序列 
一 个 收尾 方法 来 结束 构建 过 程 (参见 6.10 节 文 
序列 固定 在 DSL 里 面 ， 如 果 月 i 
两 种 方案 并 没有 绝对 的 优 劣 之 分 ， 无 非 是 


> 党 寺 


NT 


发 起 链 式 的 方法 调用 ， 完 成 


通过 它 的 连 
现 由 一 来 刘 从 民团 


构成 ， 每 一 步 转换 产生 的 对 


象 都 是 不 可 变 的 。 尽 量 采 用 不 可 变性 的 


不 开 几 项 Scala 特 性 ， 二 3 总 结 了 这 些 特性 


表 6-3 ”交易 创建 DSL 用 到 的 Scala 特 性 


习惯 。 在 领域 抽象 上 面 建立 DSL 门 面 离 


Scala 语 言 特性 


灵活 的 语法 。 由 于 省 略 点 符号 〈(.) 和 | 使 DSL 更 容易 阅读 ， 表 达 更 清晰 
圆 括号 ， 形 成 了 中 级 表示 法 


通过 限制 了 词法 作用 域 的 开放 类 ， 可 以 向 int 等 内 建 类 加 入 新 方法 


隐 式 转换 


对 象 链接 
命名 参数 和 默认 参数 使 DSL 更 容易 阅读 


创建 交易 对 象 的 DSL 至 此 告 一 段落 。 下 一 节 要 为 更 多 的 业务 规则 建立 DSL， 而 且 DSL 写 成 的 每 一 条 
规则 都 能 让 领域 专家 看 懂 并 把 关 。 基 于 DSL 的 开发 ， 其 出 发 点 正 是 促进 与 领域 专家 的 沟通 ， 协 助 
专家 查验 由 开发 者 实现 的 业务 规则 。 下 一 步 的 DSL 开 发 需要 我 们 再 准备 些 领域 抽象 作为 底层 的 


6.5 用 DSL 建 模 业 务 规 则 


业务 规则 是 DSL 的 一 个 应 用 热点 。 业 务 规则 属于 领域 模型 可 配置 的 部 分 ， 正 是 最 需要 领域 专家 
过 目的 环节 。 如 果 DSL 非 常 容易 上 手 ， 连 领域 专家 都 能 〈 像 老 饱 那样 ) 写 上 上 几 行 测试， 那 简直 是 
锦上添花 的 好 事 。 我 们 的 DSL 准 备 针对 交易 的 税 费 计算 进行 建 模 ， 图 6-4 说 明了 计算 的 详情 。 


表 6-4 DSL 将 要 建 模 的 业务 规则 : 计算 交易 的 税 费 


步骤 说 明 
1 执行 交易 买卖 双方 在 证 券 交 易 所 产生 交易 
已 发 生 的 交易 需要 计算 相应 的 税 费 。 计算 逻辑 由 交易 类 型 、 交 易 的 证 券 、 进 行 交 易 的 证 关 
2 计算 税 费 交易 所 等 因素 决定 
买卖 双方 按照 交易 净值 进行 结算 ， 税 费 是 交易 净值 的 核心 组 成 部 分 


我 们 的 DSL 要 求 能 被 领域 专家 老 鲍 看 明白 ， 理 解 其 中 的 业务 规则 ， 然 后 检查 规则 的 完备 性 ， 验 明 
规则 的 正确 性 。 那 么 ， 第 一 步 应 该 做 什么 呢 ? 还 用 问 吗 ! 当然 是 建立 税 费 的 领域 抽象 ， 不 然 DSL 
层 束 成 空中 楼 阅 了 。 
不 过 ， 聪 明 的 读者 肯定 急 着 想 看 下 轮 的 DSL 实 现 ， 没 耐心 再 听 我 介绍 一 侦 领 域 建 模 。 为 了 提起 
你 的 兴趣 ， 不 如 我 们 打 个 岔 ， 移 在 手头 已 有 领域 模型 的 基础 上 构建 一 个 实现 业务 规则 的 DSL 。 
这 个 小 练习 除了 能 提神 ， 还 能 澳 示 Sci 放言 一 项 重要 的 区 数 去 特性， 它 应 用 广泛 ， 并 能 大 大 改善 
一 种 最 常用 的 面向 对 象 设计 模式 。 
二 Scala 知 识 点 

。 模式 匹配 可 用 于 实现 函数 式 的 抽象 ， 还 可 实现 一 种 可 扩展 的 Vistor 模 式 。 

。 高 阶 画 数 是 Scala 语 言 代 表 性 的 函数 式 编程 特性 。 可 用 于 实现 组 合子 。 

。 抽象 val 和 抽象 类 型 用 于 设计 开放 的 抽象 。 开 放 抽 象 可 适时 组 合 为 具体 的 抽象 。 

。 自 类 型 标注 (self-type annotation) 可 以 用 来 建立 抽象 间 的 关联 。 

。 偏 画 数 〈partial function) 是 可 对 其 定义 域 的 一 个 子 集 进行 求 值 的 表达 式 
6.5.1 模式 匹配 如 同 可 扩展 的 Visitor 模 式 


Scala 语 言 的 case 类 除了 构造 函数 的 调用 语法 较为 简单 ， 还 可 以 对 析 构 对 象 进行 模式 匹配 (Scala 模 
式 匹配 的 用 法 详 见 6.10 节 文献 [2]) 。Haskell 等 函数 式 语言 的 代数 数据 类 型 ee data types, 


到 


详 见 http://en.wikipedia.org/wiki/Algebraic_data_type) 一 般 都 要 | 
展 的 Visitor 模式 ( 参 


页 域 规则 的 表达 ， 使 规则 看 -| 
能 大 大 提高 DSL 的 表达 外 


式 匹配 


二 


Visitor 模 式 


配 这 和 有 


一 般 画 


日 比 ， 


是 为 了 实现 一 


于 我 们 的 DSL 
函数 式 实现 范式 ， 
向 对 和 象 的 Visitor 实 现 习 了 样 ， 
各 对 象 Visitor 实 现 术 


这 方 硬 


的 更 多 详细 作 
我 们 考虑 为 这 样 


日 / 


息 ， 
人 心 \ 


领域 模型 沿用 代码 清 


(e] 


账 


(客户 
现 上 述 
额度 的 


户 的 讨 


! 通 用 的 、 


两] 全 


日 


可 扩 
设计 ， 可 以 改善 < 


LE case 类 的 


> 


模式 匹 


配 结合 Scala 


参加 6.10 届 文献 [5] 。 
一 条 业务 规则 建立 DSL: 对 于 


单 6-3 的 Accountt 


法 ， 


容易 出 现 领 域 规则 被 深 埋 在 对 
! 的 case 类 能 够 打造 


见 6.10 


到 模式 匹配 特性 
节 文 献 [3]) 


半 


O 


。 对 case 类 使 用 模 


上 去 更 请 晰 和 
BE 力 和 扩 


展 能 力 ， 


观 。 模 式 匹 


日 不 会 像 


他 


[H 
| 


象 层次 针 
更 多 可 


| 


在 今天 之 前 开户 的 所 


象 及 其 具体 实现 Clie 


本 的 问 


扩展 8 


题 。 与 


仑 见 3.2.2 节 日 


网 


和 补充 内 容 。 中 


规则 的 要 点 


六 。 具 体 实现 请 看 下 


一 是 从 系 


乡 


内 的 所 


有 帐户 


介 账 户 是 


' 找 H 


' 介 方 


账 


ntAccoun 
在 证 券 交 易 


rokerAccount 


中 


组 


\ 庆 1 


专 统 的 面 
解决 方案 ， 钦 了 解 


1096。 


设 的 账 


客户 帐户 ， 
面 的 raiseCreditLimits 画 数 。 


二 是 从 客 


' 找 出 


。) 实 
需要 修改 


Case _ 


=> 


def raiseCreditLimits(accounts: 
accounts foreach {acc => 
acc match { @ 模式 
case ClientAccount(_, 
acc.creditLimit = acc.creditLimit * 1.1 


匹配 


List[Account]) { 


_, OpenDate) if (openDate before TODAY) => 


业务 规 
器 会 在 后 台 


由 


川 被 表达 为 对 case 类 i 


进行 模式 


拖 的 规则 ， 


将 case 语 人 


党 


加 | 
/、\ 


领域 规则 5 


Ah 珀 


介绍 


() 


二 对 客 
例 一 一 用 模式 匹配 来 建 
尺 表 了 我 们 


户 


介绍 


， 请 


得 [六 6.105 


这 段 代码 能 


帐 


Ee 模 领域 规则 就 
] 不 关心 的 其 他 类 型 账 


站 文献 [2]。 
DSL 吗 ? 算 。 它 对 领域 规 幢 


展开 为 偏 画 数 ， 


所 以 就 在 第 一 条 


编 


青 注 


这 种 写法 


~ 全 
项 二 局 


ey 


图 数 的 定义 范 国 负 


观 、 清 


晰 的 特点 。 


的 


是 这 


| 的 表述 ， 


家 在 很 和 的 篇 幅 


墨 在 规则 


领域 专家 不 需要 来 


' 明 


提 及 、 有 让 


要 意义 的 


Hi 


case 子 句 里 锋 
文 么 轻松 。 


入 


第 二 


CaSe 本 


户 。 关 于 模式 匹 


Cdse]] 


定义 范围 限 


句 中 指定 的 取 
定 为 ClientAccount 实 


句 是 “不 关心 ” 子 句 ， 
这 两 项 Scala 语 言 特性 


达到 了 全 


翻 查 代码 就 能 掌 所 


域 专 家 能 理 


解 的 直 


i 译 


直 。 我 们 的 


芷 的 下 划 线 
的 详细 


观 程度 。 它 把 实现 


居 规 则 语句 的 


语义 。 最 后 ， 


属性 上 ， 


DSL 的 表达 能 力 只 要 满足 用 户 需 要 即 可 


其 他 无 关 紧要 的 部 分 都 用 


句 “ 不 关心 ”一 带 


它 的 表述 


而 


DSL 不 一 定 非 要 向 自然 语言 靠拢 。 我 重申 : 对 DSL 表 达能 力 的 要 求 是 ， 足够 满足 用 户 第 要 。 本 
例 的 代码 片段 由 程序 员 使 用 ， 所 以 只 要 把 规则 的 意图 表达 清楚 ， 让 程序 员 能 维护 、 领 域 用 户 能 
懂 ， 这 样 就 足够 了 。 
上 本 ED a pe ee 接 下 来 我 们 要 继续 完成 本 节 开 头 搁置 的 任务 
建立 税 费 的 领域 模型 。 有 许多 新 的 Scala 建 模 技 巧 在 等 着 你 ， 绝 不 会 事 负 你 的 学 习 热 
情 。 所 以 ， 快 来 杯 咖啡 提 提 神 ， 马上 要 开 台 了 。 
6.5.2 充实 领域 模型 
问题 域 的 几 个 基本 抽象 ，Trade 、Account 和 Instrument 都 已 经 准备 就 绪 ， 可 以 开始 考虑 税 
费 组 件 的 设计 了 。 计 算 交 易 的 现金 价值 这 项 功能 ， 需 要 若干 税 费 计算 方面 的 组 件 与 Trade 组 件 共 


同 完成 。 


税 费 计算 的 职责 应 该 设立 一 个 单独 的 抽象 去 承担 。 税 费 的 计算 方法 是 模型 中 必 不 可 少 的 业务 规 
则 ， 它 会 因为 业务 所 处 的 国家 、 交 易 所 而 变化 。 根 据 前 面 的 学 习 ， 想 必 你 已 经 总 结 出 规律 : 凡是 
会 变化 的 业务 规则 ，DSL 可 以 让 规则 的 表 壕 ` 清晰 、 易 于 维护 ， 进 而 减轻 你 的 工作 负担 。 


图 6-5 是 我 们 的 解决 方案 的 总 体 组 件 模型 ， 说 明了 税 费 抽象 与 Trade 组 件 的 交互 情况 。 


TaxFeeCalculationComponent 


使 用 


己 
SS 


|---------1 


| TaxFeeCalculator 


raxreenulesconponent| 


对 …… 计 算 税 费 


Account Instrument 


图 6-5 ”交易 领域 模型 中 的 税 费 组 件 。 此 类 图 反映 了 TaxFeeCcalculationcomponent 与 其 他 协 
作 抽 象 之 间 的 静态 关系 


除了 Account ， 图 6-5 中 列 出 的 抽象 都 被 建 模 为 Scala trait 的 形式 。 因 此 它们 可 以 灵活 也 关联 在 
起 ， 并 在 运行 时 与 合适 的 实现 组 合 在 一 起 ， 构 成 恰当 的 具体 对 象 。 请 看 代码 清单 6-8 
TaxFeeCalculator 和 TaxFeeCalculationcomponent 的 实现 代码 。 


代码 清单 6-8 ” 税 费 计 货 


package api 


A 


件 的 Scala 实 现 


sealed abstract class TaxFee(id: String) 

case object TRADE_TAX extends TaxFee("Trade Tax") @ 各 单 例 对 象 
case object COMMISSION extends TaxFee("Commission") 

case object SURCHARGE extends TaxFee("Surcharge") 

case object VAT extends TaxFee("VAT") 


trait TaxFeeCcalculator { @ 计算 给 定 交易 的 税 费 
def calculateTaxFee(trade: Trade): Map[TaxFee, BigDecimall] 


trait TaxFeeCalculationCcomponent { this: TaxFeeRulesComponent => @ 自 类 型 标注 
val taxFeeCalculator: TaxFeeCalculator @ 抽象 val 


class TaxFeeCalculatorImpl] extends TaxFeeCalculator { 
def calculateTaxFee(trade: Trade): Map[TaxFee, BigDecimal] = { 
import taxFeeRules. ©@ 对 象 导 入 语法 
val taxfees = 
forTrade(trade) map {taxfee => 
(taxfee, calculatedAs(trade)(taxfee)) 


} 
Map(taxfees: _*) 


深入 分 析 这 段 代 码 可 以 帮助 你 理解 整个 组 件 模型 是 怎样 联系 起 来 的 。 请 看 表 6-5 的 详细 分 析 。 
表 6-5 ”剖析 税 费 计算 组 件 的 Scala DSL 实 现 模型 


抽象 在 DSL 实 现 中 的 作用 
TaxFee 抽象 是 值 对 象 (参见 6.10 节 文献 [6]) ， 代 表 一 个 税 费 品种 。 不 同 的 税 费 品种 
TaxFee 不 同 的 Scala 单 例 对 象 @ 来 表示 


注意 ， 作 为 值 对 象 ， 各 税 费 类 型 对 象 不 可 变 
TaxFeecalculator 抽象 负责 计算 给 定 交 易 应 承担 的 全 部 税 费 @ 
它 是 联系 起 整 组 税 费 相关 抽象 的 中 心 ， 其 他 抽象 围绕 着 它 形成 交易 税 费 的 计算 核心 


TaxFeeCalculator 


TaxFeeCalculationComponent 通过 自 类 型 标注 的 JTaxFeeRulesComponent 协作 @， 通 
过 抽象 Val 与 TaxFeecalculator 协作 @ 


本 设计 的 优点 : 抽象 与 实现 解 耦 。 你 五 可 以 为 TaxFeecalculationcomponent 的 两 个 协 
FE 抽象 提供 任意 实现 实现 可 推迟 到 创建 TaxFeecalculationcomponent 的 具体 实例 时 


TaxFeeCalculationComponent 


Scala 语 言 的 自 类 型 标注 
自 类 型 标注 可 赋予 组 件 内 的 自 指 对 象 this 额外 的 类 型 。 这 种 用 法 含蓄 地 声明 trait 


TaxFeeCalculationComponent extends TaxFeeRulesComponent 。 


只 不 过 我 们 并 不 立即 创建 这 条 编译 时 依赖 关系 ， 而 是 用 自 类 型 标注 的 方式 承诺 ， 在 具体 
TaxFeeCalculationComponent 对 象 实例 化 时 ， 一 定 会 混入 TaxFeeRulesComponent 。 
代码 清单 6-10 以 及 后 续 创 建 具体 对 象 的 代码 清单 6-11 和 代码 清单 6-12 履 行 了 上 述 承 诺 。 


注意 ， 在 TaxFeeCalculatorImpl#calculateTaxFee 内 部 有 一 处 针对 taxFeeRules 的 
导入 @，taxFeeRules 也 是 TaxFeeRulesComponent 内 的 抽象 val 。 


| 


TaxFeeRulesComponent 被 声明 为 自 类 型 标注 ， 即 癌 Scala 编 译 器 宣告 它 是 this 的 有 效 类 型 之 
一 。 自 类 型 标注 的 原理 详情 ， 请 参阅 6.10 节 文献 [2] 。 


密 密 几 行 代码 就 已 经 串 起 多 个 组 件 。 省 代码 是 Scala 带 来 的 好 处 ， 也 是 运用 高 级 抽象 编程 的 结果 。 
下 一 节 将 完成 TaxFeeRulesComponent 实现 ， 设计 一 种 DSL 来 定义 税 费 计 算 的 领域 规则 。 


6.5.3 用 DSL 表 达 税 费 计算 的 业务 规则 


| 昌 件 的 领域 模型 ， 它 是 一 个 trait， 对 外 公开 税 费 计算 方面 的 主要 兆 约 。 为 简单 起 
， 假 设 了 一 种 简化 的 情况 ， 现 实 中 的 规则 要 复杂 人 烦琐 得 多 。 


package api 


trait TaxFeeRules { 


def forTrade(trade: Trade): List[TaxFee] @ 适用 于 给 定 交易 的 TaxFee 
def calculatedAs(trade: Trade): PartialFunction[TaxFee, BigDecimal] 名 


I 


4 体 的 计算 方法 


} 


第 一 个 方法 forTrade @ 返 回 给 定 交 易 应 缴纳 的 税 费 品种 列表 。 第 二 个 方法 calculatedAs @ 针 
对 给 定 交 易 计 算 具 体 某 一 项 税 费 。 


寸 


现在 看 看 TaxFeeRulesComponent 组 件 ， 它 除了 建 
的 一 个 具体 实现 。 该 组 件 如 代码 清单 6-9 所 示 。 


代码 清单 6-9 ”表达 税 费 计算 业务 规则 的 DSL 


税 费 计 算 DSL， 还 提供 了 TaxFeeRules 


package api 


trait TaxFeeRulesComponent { 
val taxFeeRules: TaxFeeRules 


class TaxFeeRulesImpl extends TaxFeeRules { 
override def forTrade(trade: Trade): List[TaxFee] = { 
(forHKG orElse 
forSGP orElse 


forAl1)(trade.market) @ 用 组 合子 把 几 个 TaxFee 列 表 连 接 起 来 


} 


val forHKG: PartialFunction[Market，List[TaxFee]] = { @ 针对 中 国 香港 市 场 的 专门 列表 
case HKG => 
List(TradeTax, Commission, Surcharge) 


val forSGP: PartialFunction[Market，List[TaxFee]] = { @ 针对 新 加 坡 市 场 的 专门 列表 
case SGP => 


List(TradeTax, Commission, Surcharge, VAT) 


val forAll: PartialFunction[Market，List[TaxFee]] = { @ 针对 其 他 国家 /地 区 的 通用 列 寻 
case _ => List(TradeTax, Commission) 


import TaxFeeImplicits._ 
override def calculatedAs(trade: Trade): 
PartialFunction[TaxFee，BigDecimal] = { 日 税 费 计算 的 领域 规则 


case TradeTax => 5. percent_of trade.principal 
case Commission => 20. percent_of trade.principal 
Case Surcharge => 7. percent_of trade.principal 
case VAT => 7. percent_of trade.principal 


TaxFeeRulesComponent 是 对 TaxFeeRules 抽象 的 发 展 ， 而 且 提 供 了 TaxFeeRules 的 实 


现 ， 当 然 你 也 可 以 自己 提供 一 个 实现 来 代替 它 。TaxFeeRu1lesComponent 仍然 是 一 个 抽象 
件 ， 因 为 里 面 的 taxFeeRules 只 有 抽象 的 声明 。 最 后 组 装 各 部 分 组 件 时 才 提 供 所 有 的 具体 实 
现 ， 构 建 出 具体 的 TradijngService。 现 在 先 来 仔细 研究 这 上 段 实 现代 码 ， 看 看 DSL 怎 么 判断 应 缴 


税 费 品种 ， 又 怎么 算出 税 费 金额 。 
1. 选 出 合适 的 应 缴 税 费 品 种 列表 


请 看 TaxFeeRulesImpl 里 面 的 DSL 实 现 。forTrade 方法 只 有 一 行 ， 它 是 用 Scala 组 合子 和 夯 数 
os 。 附 录 A 将 介绍 ， 组 合子 是 高 阶 函 数 的 优秀 组 织 手 段 。 (不 读 附录 A， 你 可 错过 
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组 合子 有 让 DSL 语 言 精炼 的 效果 。 它 是 丽 数 式 编程 最 有 吸引 力 的 部 分 之 一 。 既 然 Scala 给 了 你 画 数 
式 编程 的 强大 工具 ， 该 用 组 合子 组 织 语言 时 就 别 犹 称 。 为 给 定 交 易 找 到 适当 税 费 集合 的 业务 规 
则 ， 用 自然 语言 描述 就 是 下 面 这 样 


“为 在 中 


到 香港 市 场 进行 的 交易 提供 


列表 ， 或 者 


为 在 其 他 市 场 进行 的 交易 提供 通 


Scala 语 言 的 偏 画 数 


偏 画 


构成 的 代码 纪 


数 只 是 为 其 多 傅 参数 的 部 分 取 值 


。 请 看 下 再 


的 例子 : 


专门 场 的 列表 ， 或 者 为 用 
前 用 列表 。” 


而 定义 的 。Scala 的 偏 


函数 形式 上 是 由 一 组 模式 匹 


新 加 坡 市 场 进行 的 交易 提供 专门 的 


配 case 语句 


val onlyTrue: 
case true => 100 


PartialFunction[Boolean, 


Int] 


= { 


onlyTrue 是 一 个 PartialFunction。 它 只 对 其 定义 域 (全 体 Boolean 值 ) 的 一 部 分 
的 情况 做 了 定义 。PartialFunctio 


为 true 


i 


域 值 是 


和 否 属 于 PartialFunction 的 定义 范围 。 


即 取 值 


n trait 内 含 isDefinedAt 方法 ， 可 以 判断 某 个 领 
例子 如 下 所 示 : 


scala> onlyTrue isDefinedAt(true) 
resi: Boolean = true 
scala> onlyTrue isDefinedAt (false) 
res2: Boolean = false 


现在 对 比 着 以 上 


规 册 


地 对 应 了 


| 读 一 下 
自然 的 叙 直 


forTrade @ 里 
乡 式 ， 而 


全 


记 的 人 


J 器 J 


FE 用 是 连接 多 个 Scalaf 


按照 代码 清 


回 一 个 通 


用 的 TaxFee 对 象 列 表 。 


在 那 一 句 实现 。 你 会 发 现 


代码 


日 浓缩 在 一 个 非常 紧 凌 的 API 界 天 
图 数 ， 然 后 选取 第 一 个 对 给 


单 6-9 的 定义 ，forTrade 方法 只 有 在 market 不 是 中 
理解 了 forTrade 的 


就 知道 了 forHKG @、forsS6P@@、forAll @ 这 / 几 个 


2. 计算 税 费 


现在 该 说 具体 的 税 费 计算 了 ， 


的 规则 表达 严 丝 合 颖 
。 代码 巴 


1 用 到 了 orElse 组 


定 参 数 取 值 


高 阶 


有 定义 的 偏 函 数 。 


C3 


原理 ， 学 握 了 scala 仿 国 数 的 组 合 方法 


函数 的 工作 / 


原理 。 


这 是 DSL 要 解决 的 第 二 部 分 业务 规则 。 主 


calculatedAs @@ 方 法 。 你 能 看 出 它 实 现 了 什么 规则 吗 ? 


calculatedAs 方法 把 


子 句 都 


法 ， 然 后 写成 


竺 过 ijmplicits 的 妙手 润色 。i 


1 级 形 


乡 式 ， 就 得 到 代码 清单 6-9 


package api 


} 


作用 域 ， 也 就 是 下 


青 看 代码 清单 6-9 的 


领域 规则 表达 得 十 分 清楚 ， 这 又 是 Scala 模 式 匹 
ts 手法 


的 结果 


° 隐 式 转换 使 


object TaxFeeImplicits { 
class TaxHelper (factor: 
def percent_of(c: 


Double) { 


象 


BigDecimal) = factor * c,doublevalue / 100 


implicit def Double2TaxHelper(d: Double) = new TaxHelper(d) 


配 的 功劳 。 它 的 几 条 case 


给 Double e 类 增加 percent_of 方 


用 用 前 需要 先 将 其 定义 导入 当 前 


而 的 TaxFeeImp1Licits 对 象 : 


导入 TaxFeeImplicits 对 象 之 后 ， 


领域 语法 的 


我 们 融 可 以 像 calculatedAS 方法 那样 ， 
乡 式 ， 业 务 专 家 们 看 了 一 定 会 高 兴 的 。 


把 句子 写成 符合 


3. DSL 和 API 有 什么 区 别 


6.5 节 主要 介绍 了 两 件 事 ， 一 是 学 习 在 底层 实现 模型 上 搭建 创建 领域 实体 的 DSL 脚本， 其 次 学 习 为 
业务 规则 移 建 DSL 。 Scala 提供 ee 可 在 面向 对 象 的 领域 模型 上 实现 表意 清 淅 的 API 。 这 些 
一 步 ， 运 用 Scala 的 隐 式 转换 提供 的 开放 类 去 
效果 。 但 即使 不 利用 这 种 贴心 的 jmplicits 特性 ， 只 要 综合 运用 面向 对 象 和 函数 


手段 前 面 已 经 介 


改善 语言 的 表达 


绍 过 。 我 在 两 部 分 的 实现 中 都 多 走 


式 两 方面 的 特性 ， 


既然 如 4 


定 会 问 : 到 底 内 部 DSL 和 API 有 什么 区 别 


已 经 足够 为 领域 模型 建立 一 套 表达 力 充分 的 API 。 
呢 ? 坦白 讲 ， 区 别 不 大 。 如 果 一 套 API 具 


力 ， 能 向 用 户 清楚 揭示 领域 语义 ， 同 
代码 


名 DST 。 纵 观 书 中 被 挂 上 DSL 名 号 的 


门 的 称呼 。DSL 实 现 者 需要 维护 代码 ， 


时 又 不 增加 额外 的 非 本 质 复杂 性 ， 那 么 它 就 
片段 ， 我 总 是 根据 它们 面向 领域 用 户 的 


领域 专家 需要 理解 语义 ; 要 想 不 多 做 语法 


满足 这 两 方面 的 需要 ， 你 选择 的 实现 语 


前 面 提 到 ， 图 6-5 列 出 的 组 件 都 是 抽象 的 ， 我 们 有 音 


温 附录 人 A 中 树立 的 抽象 设计 原则 。 


会 将 各 种 交易 组 


党 把 组 件 设计 成 trait。 不 ,过 你 还 Ss 
的 trait 组 合成 可 实例 化 的 具体 领域 实体 时 ， 你 才 知 道 这 种 组 合 威力 有 多 大 。 下 一 


言 必须 拥有 建立 并 组 合 高 阶 抽 象 的 能 力 。 我 


件 组 合 起 来 ， 构 建 一 些 具 体 的 交易 服务 ， 然 后 以 交易 服务 为 根基 建立 DSi 的 语言 


象 。 


6.6 把 组 件 装配 起 来 


业务 规则 建立 DSL 的 经 验 ， 我 们 来 准备 下 一 道 DSL 大 菜 ， 这 道 染 的 材料 还 多 几 味 


带 着 为 税 费 计算 
象 。 


下 Scala 知 识 点 


。 Scala 的 模块 ， 即 object 关键 字 。 人 允许 通过 组 


全 


or 


象 的 组 件 来 定义 具体 的 实例 。 


。 各 种 组 合子 ， 如 map 、foldLeft 、foldRight 。 


怎样 运 有 


基于 类 型 的 抽象 。 可 供 选 择 的 抽象 组 


象形 
易 衍生 出 合 适 的 


6.6.1 用 trait 和 


O 


DSL 语 法 


类 型 组 合 出 更 多 的 抽象 


领域 模型 里 面 有 


分 抽象 扮演 对 外 的 窗 和 


服务 使 用 名 ee 对 象 ( 详 见 6. 10 节 文献 [ 6]) 
昌 的 领域 服务 ， 但 化 真空 的 使 用 案 网 简化 很 多 。 


TradingService 是 一 个 典 下 


代码 清单 6-10 


Scala 的 mixin 式 继承 来 组 合 个 同 的 trait 8 你 还 会 用 scala 语 言 支 持 的 男 一 种 抽 
合 手段 越 多 ， 领 域 模型 的 可 塑性 就 越 强 ， 也 越 容 


条 向 最 终 用 户 ， 领 域 服 务 即 为 其 中 之 一 。 领 域 


， 向 用 户 


乱 行 契约 。 在 代码 清单 6-10 中 ， 


服务 基 类 TradingService 的 Scala 实 现 


package api 


trait TradingService 
extends TaxFeeCalculationComponent 
with TaxFeeRulesComponent { @ 利用 
type T <: Trade @ 抽象 类 型 


def taxes(trade: T) = 
taxFeeCalculator .calculateTaxFee(trade) 


traits 完 成 的 mixin 式 继承 


def totalTaxFee(trade: T): BigDecimal = { © 基于 组 


合子 的 编程 方式 


taxes(trade).foldLeft(BigDecimal(0))(_ + _._2) 


def cashvalue(trade: T): BigDecimal @ 抽象 方法 


[En 
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图 6-6 简 要 讲解 了 服务 契约 的 履行 过 程 ， 同 时 指出 其 中 用 到 的 一 些 Scala 特 性 


表 6-6 ”剖析 代码 清单 6-10 中 的 TradingSservice 领域 服务 


特性 说 明 

TradingService 被 混入 了 两 个 组 件 ， TaxFeeCalculationComponent 和 TaxFeeRulesComponent 
© 

mixin 与 现 有 抽象 组 合 在 一 起 的 强大 能 

区 注意 : 
人 ， 我 们 不 但 继承 了 接口 ， 还 继承 了 可 选 的 实现 。mixin 才 是 正确 的 多 重 继承 

| 

TradingService 对 交易 类 型 做 了 抽象 @。 这 样 的 安排 很 好 理解 ， 因 为 不 同类 型 的 交易 需要 
区 别 对 待 ， 由 各 门 的 交易 服务 去 处 理 。 虽 然 服务 基 类 Tradingservice 不 理会 具体 的 交 

针对 交易 类 型 的 抽象 易 类 型 ， 但 交易 必须 满足 从 属于 Trade 基 类 这 个 | 其 不 条 件 
什么 时 候 具体 化 类 型 T 
到 了 具体 化 Tradingservice 时 ， 我 们 会 为 抽象 交易 类 型 T 提供 一 个 具体 实现 
服务 中 定义 了 具体 方法 totalTaxFee 四， 用 于 合计 组 件 中 算出 人 项 目 ， 计 算 通 过 


er 


税 费 计算 的 核心 逻辑 位 于 totalTaxFee foldLeft 组 合 了 完成 。Scala 纪 
为 法 


日 合子 foldteft 的 原理 以 及 占 位 符 法 详 见 附录 D 


提示 : 
应 该 优先 使 用 组 合子 ， 其 次 才 考 虑 递归 或 迄 代 


通过 抽象 方法 将 实现 工作 推 给 子 类 se a lid 寻 为 具体 的 逻辑 与 服务 要 处 理 的 交易 类 型 有 关 ， 所 以 把 它 留 给 


三 | 


到 目前 为 止 我 们 还 没有 具体 化 任何 抽象 ， 几 个 trait 都 还 带 着 抽象 类 型 ， 下 一 节 将 给 出 定义 。Scala 
语言 提供 了 异常 丰富 的 抽象 设计 手段 供 你 选择 。 设 计时 ， 应 该 针对 手头 的 问题 ， 挑 选 最 合适 的 工 
具 ， 也 别 忘 了 参照 附录 A 讨论 的 设计 原则 。 


6.6.2 使 领域 组 件 具体 化 

EquityTradingService 为 股票 交易 提供 交易 服务 。 它 是 一 个 具体 的 组 件 ， 只 需 针 对 它 生 成 的 
服务 实例 化 一 次 。 代 码 清单 6-11 用 Scala 的 单 例 对 象 表示 法 (具体 参见 6.10 节 文献 [2]) 来 建 模 
EquityTradingService 。 


代码 清单 6-11 ”针对 股票 交易 的 交易 服务 具体 实现 


package api 


上 


object EquityTradingService 
extends TradingService { 


type T = EquityTrade 人 @ 提供 具体 的 类 型 


val taxFeeCcalculator = new TaxFeeCalculatorImpl @ 提供 具体 的 val 

val taxFeeRules = new TaxFeeRulesImpl @ 提供 具体 的 val 

override def cashvalue(trade: T): BigDecimal = { @ 提供 具体 的 方法 
trade.principal + totalTaxFee(trade) 


上 去 挺 简单 的 ， 对 吧 ? 写法 有 以 下 几 个 要 点 : 
。 用 一 个 具体 类 型 EquityTrade 种 代替 基 类 中 定义 的 抽象 交易 类 型 ; 
。 先前 混入 到 基 类 的 trait 还 留 下 几 个 抽象 的 val， 我 们 要 一 一 提供 具体 的 实现 @，; 


。 针 对 股票 交易 的 cashValue ， 给 出 具体 的 计算 方法 @。 


参照 EquityTradingService 的 实现 方式 ， 我 们 继续 实现 固定 收益 型 交易 
FixedIncomeTrade 对 应 的 具体 交易 服务 FixedIncomeTradingService ， 如 代码 清单 6-12 
所 示 。 

代码 清单 6-12 ” Scala 中 针对 固定 收益 型 交易 的 交易 服务 
package api 
object FixedIncomeTradingService 

extends TradingService with AccruedInterestCalculationComponent { @ 添加 计算 应 计 利息 的 mixin 

type T = FixedIncomeTrade 

val taxFeeCalculator = new TaxFeeCalculatorImp1 

val accruedInterestCalculator = new AccruedInterestCcalculatorImpl ”应 计 利息 计算 器 的 具体 实例 

val taxFeeRules = new TaxFeeRulesImpl 

def accruedInterest(trade: T): BigDecimal = { 

accruedIinterestCalculator.calculateAccruedInterest(trade) 
} 
override def cashvalue(trade: T): BigDecimal = { 
trade.principal + 
accruedInterest(trade) + totalTaxFee(trade) 

} 
} 
注意 ， 我 们 在 核心 抽象 上 额外 混入 了 AccruedInterestcalculationComponent 组 件 @@， 它 
的 功能 是 计算 “应 计 利 息 ” 8 本 全 改革 型 证 产 、 般 都 舍 有 应 计 利 息 ， 而 且 固 定 收 葵 型 交易 的 现金 价 
值 应 该 将 此 利息 计算 在 内 。 这 条 业务 规则 不 难 从 FixedIncomeTradingService 的 定义 中 看 出 
来 。 
本 节 先 定义 了 领域 服务 抽象 ， 然 后 将 前 面 几 节 构建 的 组 件 装配 上 去 ， 构 造 出 可 以 在 DSL 中 直接 使 
用 的 具体 Scala 模 块 。 

"RA 个 练习 展示 了 Scala 的 真正 威力 ， 下 可 以 推迟 到 最 后 时 记 才 进行 基体 的 实现 。 Scala 的 这 种 

能 力 源 自 抽象 val 、 抽象 类 型 、 自 类 型 标注 这 三 大 支柱 的 支撑 。 除 此 之 外 ，mixin 式 继承 灵活 

的 抽象 组 合 能 力也 起 了 很 大 作用 。Scala 给 了 你 丰富 的 手段 去 设计 可 扩展 的 各 式 组 件 。 
ee 上 构建 了 一 套 DSL。 就 Scala 而 言 ， 我 把 DSL 层 看 做 根据 用 户 需 求 
逐渐 演化 的 一 组 过 按照 这 桂 的 思 和 在 对 交易 系统 的 不 同 用 例 进行 建 模 之 后 ， 0 
个 多 层次 的 组 合 抽象 模 型 。 当 市 场 规 则 有 变 需要 在 现 让 扯 估 加 入 新 规则 时 也 就 太 当 现 有 
DSL 需 要 与 新 DSL 携 手 合 作 时 ， 应 该 怎样 实施 ? 节 说 说 怎么 用 Scala 的 类 型 系统 来 做 这 件 事 。 


6.7 组 合 多 种 DSL 


能 表明 不 同意 图 的 各 种 抽象 聚 在 一 起 ， 构 成 应 用 的 领域 模型 。DSL 层 作为 领域 模型 之 上 的 一 层 门 
， 只 有 它 的 抽象 级 别 正确 时 ， 才 表现 出 功用 和 可 扩展 性 。 本 节 把 DSL 整 体 作为 一 个 抽象 单元 ， 
讨论 不 同 DSL 之 间 的 组 合 方法 。 以 后 遇 到 需要 按 不 同方 式 将 多 个 Scala DSL 组 合 在 一 起 的 情况 ， 将 
会 用 到 这 方面 的 技巧 。 作 为 讨论 用 的 案例 ， 我 们 从 交易 系统 领域 内 挑选 了 市 场 规则 DSL 和 交易 处 
理 的 核心 业务 规则 作为 集成 对 象 。 


设计 好 DSL 的 抽象 之 后 可 以 通过 Scala 的 子 类 型 化 手段 来 扩展 它 。 子 类 型 化 会 产生 一 个 层级 关系 的 
关联 结构 ， 针 对 相同 的 核心 语言 ， 有 各 种 符 化 抽象 分 别提 供 不 同 的 实现 。 这 不 就 是 所 谓 的 多 态 
吗 ? 没 错 ，6.7.1 节 将 利用 DSL 的 多 态 关 系 来 组 合 它们 。6.7.2 节 则 讨论 怎样 组 合 那些 没有 亲缘 关系 
的 DSL 。 毕 融 个 同 的 DSL 般 有 着 各 自 独 立 的 发 展 轨迹 ，DSL 的 发 展 往往 也 不 受 应 用 生命 周期 的 约 
束 。 应 用 架构 必须 提供 民 好 的 环境 ， 让 各 式 各 样 的 DSL 结 构 能 无 颖 地 组 合 起 来 。 


6.7.1 扩展 关系 的 组 合 方式 


交易 输入 系统 将 经 过 一 系列 常规 的 交易 处 理 流程 ， 其 中 第 一 个 步骤 是 交易 充实 。 该 步骤 向 
交易 误杀 补充 一 避 | 让 和 充 没 有 直接 提供 的 衍生 信息 。 信 息 包括 交易 的 现金 价值 、 应 缴 税 费 等 
不 同类 型 的 交易 证 券 还 会 有 其 他 各 式 各 样 的 信息 。 


1. DSL 的 扩展 


下 面 的 脚本 骨 染 看 上 去 还 不 是 DSL 应 该 有 的 样子 ， 我 们 会 在 后 续 的 讨论 中 为 它 添加 血肉 。 为 交易 
处 理 流程 定义 方法 时 ， 还 会 用 到 之 前 实现 的 一 些 组 件 。 


package dsl 


trait TradeDsl { 
type T <: Trade 
def enrich: PartialFunction[T，T] @ 抽象 方法 


} 


我 们 的 专用 语言 现在 的 语义 还 很 单薄 ， 它 仅仅 定义 了 一 个 enrich 方法 ， 用 于 为 输入 系统 的 交易 
充实 信息 @ 。 


现在 分 别 为 FixedIncomeTrade 和 EquityTrade 两 种 交易 定义 具体 的 TradeDs1 实现 ， 如 代 
码 清单 6-13 和 代码 清单 6-14 所 示 。FixedIncomeTrade 对 应 的 DSL 要 用 到 我 们 之 前 设计 的 


FixedIncomeTradingService 抽象 。 


代码 清单 6-13 ”针对 FixedIncomeTrade 的 交易 DSL 


package dsl 


import api._ 
trait FixedIincomeTradeDsl1 extends TradeDsl { 
type T = FixedIncomeTrade 


import FixedIncomeTradingService._ 


override def enrich: PartialFunction[T，T] = { 
case t => 
t.cashValue = cashvalue(t) 
t.taxes = taxes(t) 
t.accruedInterest = accruedInterest(t) 司 定 收益 交易 的 应 计 利 息 
t 


} 
} 


object FixedIncomeTradeDsl extends FixedIncomeTradeDs1 ”DSL 的 具体 实例 


EquityTrade 对 应 的 DSL 要 用 到 EquityTradingService 抽象 。 


代码 清单 6-14 “针对 EquityTrade 的 交易 DSL 


package dsl 


import api, 
trait EquityTradeDs1 extends TradeDs1 { 
type T = EquityTrade 


import EquityTradingService, 


override def enrich: PartialFunction[T, T] = { 
Case t => 
t.cashValue = cashvalue(t) 
t.taxes = taxes(t) 
t 
3 
} 


object EquityTradeDs1 extends EquityTradeDsl 


代码 清单 6-13 的 FijxedIncomeTradeDsl 和 代码 清单 6-14 的 EquityTradeDs1 ， 为 同样 的 核心 
语言 TradeDs1l 分 别提 供 有 具体 的 语言 实现 。 已 们 的 交易 充实 语义 ， 分 别 用 6.6 节 的 两 个 
ee 具体 类 来 实现 。 从 图 6-6 的 类 图 可 以 看 出 这 两 个 语言 抽象 之 间 的 关系 。 


TradeDSLD 


FixedTncomerradepsr| 


EquityTradeDSL 


type T= type T = 
FixedIncomeTrade EquityTrade 


图 6-6 ”TradeDSL 有 一 个 抽象 类 型 成 员 T <: Trade ,但 EquityTradeDSL 在 相应 的 位 置 上 指 
定 了 具体 的 类 型 T = EquityTrade ，FixedIncomeTradeDSL 指定 了 具体 类 型 T = 
FixedIncomeTrade 。EquityTradeDSL 和 FixedIncomeTradeDSL 是 TradeDSL 的 特 化 抽 


因为 FixedIncomeTradeDSL 和 EquityTradeDSL 扩展 自 同一 个 父 抽象 ， 平 常 那 些 围 绕 继承 关 
系 的 多 态 用 法 都 可 以 套用 上 去 。 但 如 果 我 们 需要 定义 这 么 一 个 TradeDSL 子 类 型 ， 它 并 不 针对 特 
定 的 交易 类 型 ， 同 时 它 所 建 模 的 业务 规则 需要 结合 EquityTradeDSL 和 
FixedIncomeTradeDSL 的 语义 ， 义 应 该 怎么 做 呢 ? 下 一 市 的 例子 演示 了 Scala 的 男 一 种 组 合 手 
段 。 


通过 可 揪 拔 替换 的 语义 来 组 合 


业务 规则 会 随 市 场 条 件 、 监 管 规则 ， 还 有 其 他 各 种 因素 而 改变 。 假 设 券商 组 织 为 了 促进 高 价值 的 
交易 ， 宣 布 了 这 样 一 条 新 的 市 场 规则 


“对 于 任何 在 纽约 证 券 交 易 所 进行 的 交易 ， 如 果 基 本 价值 > 1000 USD ， 在 计算 其 净 现 金价 值 时 ， 
应 对 基本 价值 进行 10% 的 折扣 。” 


现在 不 管 交易 的 类 型 是 EquityTrade 还 是 FixedIncomeTrade ， 都 需要 在 交易 充实 算法 实 
现 以 上 规则 。 这 条 规则 不 应 该 成 为 核心 现金 价值 计算 的 一 部 分 ， 毕 竟 让 短期 促销 用 的 市 场 规则 影 
响 系统 的 核心 逻辑 是 不 合理 的 。 类 似 的 领域 规则 ， 我 们 希望 实现 成 洋葱 一 样 的 层 肥 结构 ， 既 可 有 灵 
活 地 增 减 ， 又 不 影响 核心 抽象 (请 比照 装饰 器 模式 来 理解 ) 。 代 码 清单 6- 15 对 TradeDs1l 的 语义 
进行 扩充 ， 以 反映 上 述 针 对 个 别 市 场 的 新 规则 。 


代码 清单 6-15 ”为 TradeDs1 扩充 新 语义 一 ”新 增 业 务 规则 


package dsl 
import api, 


trait MarketRuleDs1 extends TradeDs1 { 


val semantics: TradeDs1 @ 被 蔡 入 的 内 层 语义 
type T = semantics.T 


override def enrich: PartialFunction[T，T] = { 
Case 七 => 
val tr = semantics.enrich(t) 调用 内 层 语义 
tr match { 给 内 层 DSL 披 挂 上 附加 规则 
case x if x.market == NYSE && x.principal > 1000 => 
tr.cashValue = tr.cashValue - tr.principal * 0.1 
tr 
case x => x 


这 上段 代码 是 讨论 DSL 组 合 的 一 个 小 高 潮 。 注 意 semantics 抽象 val 的 作用 ， 内 层 DSL 被 杠 入 到 这 个 
位 置 ， 等 待 与 新 领域 规则 进行 组 合 @。 内 部 DSL 的 另 一 种 叫 法 正好 是 “内 册 式 DSL”。 大 多 数 时 候 ， 
DSL 的 语义 是 和 实现 息 性 绑 定 在 一 起 的 。 但 这 个 例子 的 情况 不 一 样 ， 我 们 希望 竺 组合 DSL 的 语义 
是 可 以 插 拔 替换 的 。 那 样 的 话 ， 就 能 在 被 组 合 的 各 DSL 之 间 保 持 松散 的 耦合 度 。 除 此 之 外 ， 运 行 
时 的 播 拔 机 制 有 利于 推迟 确定 具体 的 实现 。 代 码 清单 6-16 为 EquityTradeDs1、 


FixedIncomeTradeDs1 分 别 与 新 规则 MarketRuleDs1 的 组 合体 定义 具体 对 象 。 
代码 清单 6-16 ”组 合 DSL 


package dsl 


object EquityTradeMarketRuleDs1 extends MarketRuleDs1 { 
val semantics = EquityTradeDS1 


object FixedIncomeTradeMarketRuleDsl extends MarketRuleDsl { 
val semantics = FixedIncomeTradeDsl 


稍 后 你 会 看 到 各 种 DSL 组 合成 果 的 汇总 。 在 此 之 前 ， 我 们 要 用 前 面 学 过 的 函 数 式 组 合子 知 识 ， 再 
扩充 一 下 TradeDs1 的 功能 。 组 合子 在 函数 式 层面 和 对 象 层 面 都 可 以 表现 出 它 的 组 合 性 语义 。 


通过 画 数 式 组 合子 来 组 合 
本 小 节 开头 曾经 提 到 


易 的 处 理 流程 ， 还 记得 吗 ? 在 执行 交易 充实 步骤 之 前 ， 首 先 要 验证 交易 的 
有 效 性 。 而 在 充实 之 后 ， 交 易 还 要 被 登记 到 会 记 系 统 的 账 筹 之 中 。 现 实 中 的 交易 处 理 过 程 其 实 不 
止 这 几 步 ， 但 作为 演示 ， 我 们 姑且 让 例子 简单 一 些 。 应 该 怎样 用 Scala DSL 建 模 这 个 流程 序列 呢 ? 
组 成 流程 序列 的 步骤 适合 用 PartialLFunction 组 合子 来 建 模 ， 匹配 可 以 把 规则 表达 得 清 
晰 直 白 。 代 码 清 单 6-17 把 原先 的 TradeDs1 骨架 变 得 丰满 了 一 些 ， 增 加 了 一 套 控制 结构 来 表示 对 
流程 步骤 的 规定 。 

代码 清单 6-17 ”在 DSL 


package dsl 


人 


建 模 交 易 的 处 理 流 程 


import api, 


trait TradeDs1l { 
type T <: Trade 


def withTrade(trade: T)(op: T => Unit): T= { @ 加 入 自 定义 操作 


if (validate(trade)) 
(enrich andThen journalize andThen op)(trade) @ 基于 组 合子 的 中 组 运算 
trade 


} 


def validate(trade: T): Boolean = //.. 

def enrich: PartialFunction[T, T] 

def journalize: PartialFunction[T, T] = { 
case t => //.. 


为 什么 要 把 enrich 定义 成 PartialFunction 呢 ?Scala 的 偏 画 数 具 有 令 人 赞叹 的 组 合 能 力 ， 特 
别 适 合用 来 构建 高 阶 结构 。 


withTrade 被 定义 成 一 个 控制 结构 ， 交 给 它 一 笔 交 易 ， 它 会 从 头 到 尾 执行 完 交 易 处 理 的 全 部 流 
程 。 这 个 控制 结构 还 具有 向 流程 中 插入 自 定 义 操 作 的 能 力 ， 自 定义 操作 通过 (op: T => Unit ) 
参数 @ 传 withTrade 。 传 入 的 参数 应 该 是 一 个 作用 于 交易 ， 且 没有 返回 值 的 函数 。 日 志 、 发 送 
件 、 审 计 跟 踪 等 画 数 就 具备 这 样 的 特点 ， 有 副作用 ， 但 不 影响 操作 后 的 返回 值 。 类 似 的 具有 副 
作用 的 操作 很 适合 通过 这 个 途径 插入 到 交易 处 理 流程 。 


withTrade 代码 中 的 模式 匹配 块 值得 一 说 ， 它 只 用 四 行 代码 就 将 全 部 领域 规则 宫 括 在 内 。 另 和 
andThen 组 合子 @@ 也 出 色 地 表达 了 各 步骤 的 既定 顺序 。 


4. 使 用 组 合 完毕 的 DSL 

D5SL 组 合 完 毕 后 的 实际 表现 请 看 代码 清单 6-18。 这 上段 脚本 用 我 们 的 “交易 创建 DSL” 建 立 一 笔 交 易 ， 
然后 执行 充实 、 验 证 等 各 个 步 曙 ， 完 成 交易 处 理 的 全 过 程 ， 最 后 联合 市 场 规则 DSL 算 出 交易 最 后 
J 现金 价值 。 


代码 清单 6-18 ”交易 处 理 流程 DSL 


import FixedIincomeTradeMarketRuleDsl._ 
withTrade( 


| 


200 discount_bonds IBM 
for_client NOMURA 
on NYSE 
at 72.ccy(USD)) {trade => 
Mailer(user) mail trade 
Logger log trade 
} cashvalue 


本 节 用 了 装饰 器 (Decorator) 模式 (参见 6. 二 作为 组 合 手段 。 我 们 将 semantics 作为 
待 装 饰 的 DSL， 在 它 的 外 面包 衰 装点 其 他 必要 逻辑 。 通 过 装饰 器 模式 ， 对 象 可 以 动态 地 增 减 其 职 
责 。 它 的 这 种 能 力 在 我 们 需要 组 合 有 亲缘 关系 的 DSL 时 ， 正 好 能 派 上 用 场 。 

要 是 待 组 合 的 几 种 语言 之 间 没 有 亲缘 关系 ， 又 会 出 现 什么 情况 呢 ? 日 斯 和 时 间 、 货 币 、 几 何 图 形 
等 领域 的 DSL， 常 常 作为 辅助 工具 穿插 于 更 大 型 DSL 的 舞台 间隙。 下 一 节 学 习 如 何平 稳 掌 控 这 类 
语言 的 成 长 变化 。 

6.7.2 层级 关系 的 组 合 方式 

在 大 型 DSL 脚 本 里 面 租 入 小 型 DSL 是 相当 常见 的 做 法 。 就 以 金融 交易 系统 来 说 ， 例如 处 理 货币 换 
算 ， 管 理 日 期 时 间 ， 投 资 组 合 报 表 中 管理 客户 收 支 结余 等 场合 ， 都 不 难 发 现 D5L 的 身影 。 
现在 假设 我 们 需要 为 客户 投资 组 合 报表 实现 一 种 DSL， 用 于 报告 到 给 定 日 期 为 止 ， 客 户 账户 下 持 
有 的 各 类 证 券 和 现金 结余 。 注 意 ,， “客户 投资 组 合 “和. 绩 余 " 光 商 个 词 代表 着 两 个 重要 的 领 概 
念 ， 值 得 我 们 用 DSL 的 方式 建 模 它们 的 抽象 。 它 们 虽然 是 两 个 互相 独立 的 抽象 ， 却 时 常 发 生 一 些 
密切 的 联系 。 

1. 避免 与 实现 发 生 隶 合 


表 6-7 能 帮 我 们 理 清 这 两 个 
实现 上 也 能 保持 独立 。 


象 之 间 的 关联 ， 只 有 掌握 它们 的 关系 ， 才 能 保证 概念 上 独立 的 DSL 在 


表 6-7 ”按照 层级 关系 组 合 多 个 DSL 
需要 各 自 独立 发 展 的 两 个 关联 抽象 
He “客户 资产 组 合 * 指 的 是 : 
全 凡生 要 人 二 念 ， 可 以 机 DsL a 
站 BigDecimal 来 表示 ， 但 Bigpecimal 对 于 领域 
注意 : 
你 应 该 时 刻 注意 ， 不 要 让 对 外 公开 的 语言 结构 暴露 了 背后 的 实现 。 能 做 到 这 一 点 的 话 ， 不 仅 DSL 的 可 读 性 更 好 ， 还 便于 在 不 影 
响 客 户 代码 的 前 所 下 ， 完 美 地 更 改 内 部 实现 。 关 于 如 何 隐藏 内 部 实现 的 话题 ， 请 参考 附录 A 中 的 讨论 
对 关系 建 模 : 
下 面 这 段 脚本 清楚 地 说 明 ， 在 领域 用 户 眼中 ， 结 余 抽象 和 资产 组 合 抽象 应 该 在 领域 API 里 面 呈 现 什么 样 的 关系 : 


trait Portfolio { 
def currentPortfolio(account: Account): Balance 


待 完成 工作 : 


结余 DSL 可 以 有 多 种 实现 ， 资 产 组 合 DSL 也 一 样 ， 我 们 设计 的 组 合 方式 ， 要 保证 两 者 的 关联 关系 不 因为 任何 一 方 的 实现 变化 而 
受到 影响 。 定 义 一 个 Portfolio DSL 实 现时 ， 应 该 能 够 灵活 地 插入 任意 一 种 Balance DSL 实 现 。 


Balance 是 盖 在 实现 外 面 的 抽象 接口 。Scala 允 许 定义 “类 型 同义词 ”(type synonym) 。 我 们 只 要 
定 type Balance = BigDecimal ， 就 可 以 用 Balance 这 个 名 字 来 称呼 客户 名 下 的 资产 净 
。 但 是 这 种 便利 会 产生 别 的 影响 吗 ? 抽象 的 Portfolio DSL 会 根据 需要 被 特 化 为 各 下 具 本 类 

时 ， 形 成 6.7.1 节 TradeDs1 那样 的 大 家 族 。 在 这 种 情况 下 ， 直 接 在 Portfolio DSL 基 类 型 中 骸 入 
alance 的 实现 ， 将 导致 整 棵 Portfolio 家 族 树 都 与 内 磐 的 Balance 具体 实现 耦合 在 一 起 。 就 
算 以 后 真 的 有 需要 ， 也 绝 无 可 能 更 改 内 菊 罗 实现 。 所 以 ， 一 定 不 要 将 一 方 直接 内 舱 到 另 一 3 而 
应 该 从 层次 化 的 角度 去 设计 组 合 形态 。 最 终 让 两 个 DSL 既 能 完美 契合 ， 又 不 至 于 密 不 可 分 ， 随 时 
能 换 上 你 想 要 的 实现 。 


代码 清单 6-19 的 DSL 用 于 对 客户 资产 组 合 建 模 ， 想 想 看 它 有 什么 问题 。 
代码 清单 6-19 ”存在 实现 耦合 的 DSL 


package dsl 


由 


De 


中 


中 


import api._ 
import api.Util._ 


trait Portfolio { 
type Balance = BigDecimal @ 内 嵌 的 实现 
def currentPortfolio(account: Account): Balance 


} 


trait ClientPportfolio extends Portfolio { 
override def currentPortfolio(account: Account) = 
BigDecimal(1200) ”@ 现实 中 此 处 逻辑 会 很 复杂 


哈 ! 才 要 实现 第 一 个 特 化 的 Portfolio DSL， 被 内 藤 绑 住 手 脚 的 Balance 抽象 @ 就 支持 不 住 了 
四 “。 我 们 试 一 试 维持 它们 的 层级 关系 不 变 ， 但 是 将 Balance DSL 的 en 1 在 Portfolio 
DSL 之 外 。 虽 然 按 照 层级 关系 来 组 合 ， 必然 意味 着 一 方 要 包含 在 另 一 方 里 日 我 们 计划 的 组 
合 方式 有 一 个 地 方 不 同 于 代码 清单 6- 19， 那 就 是 我 们 出 入 的 是 DSL 的 接口 ， 2 FE 实现 。 答 案 一 想 
更 知 ， 没 错 ， 正 是 抽象 val! 我 们 让 Portfolio DSL 包 含 Balance DSL 的 一 个 实例 ， 不 妨 称 为 
Balances ° 


2. 对 结余 的 建 模 


大 简单 的 DSL 示例 很 难 让 你 深刻 理解 DSL。 你 有 当 你 看 到 DSL 将 底层 复杂 性 用 容易 理解 的 语法 表 
述 ， 才 能 切实 感受 到 DSL 的 强大 表现 力 。 前 面 我 们 简单 地 用 BigDecimal 来 建 模 “结余 ”概念 。 但 
是 对 于 熟悉 证 券 交 易 操作 的 业内 人 士 来 说 ， 客 户 账户 下 的 结余 实际 上 表示 ， 客 户 在 特定 日 期 按照 
指定 货币 计算 的 现金 头寸 。 例 子 将 省 略 从 客户 的 资产 组 合算 出 结余 的 具体 过 程 。 作 为 DSL 契 约 的 
Balances 如 代码 清单 6-20 所 示 ， 同 时 列 出 的 还 有 它 的 一 个 具体 实现 BalancesImpl 。 


代码 清单 6-20 ” 建 模 账户 结余 的 DSL 


package dsl 


证 


import java.util.Date 
import api, 

import api.Util, 
import api.Currency, 


trait Balances { 


type Balance ”抽象 类 型 


def balance(amount: BigDecimal, 

ccy: Currency, asof: Date): Balance 
def inBaseCurrency(b: Balance): (Balance, 
def getBaseCurrency: Currency = USD 


Currency) 


def getConversionFactor(c: Currency) = 0.9 


} 


class BalancesImpl extends Balances { @ 具体 实现 


case class BalanceRep(amount: BigDecimal, 
ccy: Currency，asofDate: Date) 
type Balance = BalanceRep 


override def balance(amount: BigDecimal, 
ccy: Currency, asof: Date) 
= BalanceRep(amount, ccy, asof) 


override def inBaseCurrency(b: Balance) 


= (BalanceRep(b.amount * getConversionFactor(getBaseCurrency), 
b.ccy, b.asofDate), getBaseCurrency) 


object Balances extends BalancesImpl 


客户 可 以 根据 喜好 指定 报告 结余 金额 时 采用 的 货币 类 型 ， 而 是 
来 计算 。 基 本 货币 是 投资 者 记 账 时 采用 的 货币 。 外 汇 市 场 上 一 
单 6-20 的 DSL 实 现 中 ， inBaseCurrency 方法 负责 按 基本 货 报告 结余 
Ene 落实 为 由 金额 、 货 


列 实现 BalancesImpl 里 面 ， 
具体 日 期 进行 计算 ) 构成 的 三 元 


3. 结余 DSL 与 资产 组 合 DSL 的 组 合 


Portfolio DSL 需 要 为 组 合 做 一 些 准备 ， 安 排 一 个 数据 成 员 的 位 置 给 Balances 类 型 的 抽象 


val@， 如 代码 清单 6-21 所 示 。 
代码 清单 6-21 ”资产 组 合 DSL 的 接口 契约 


往 要 求 一 律 按照 基本 货币 


当 基 本 货币 。 在 代码 清 


机 

\H 
CT 
Ny 
sd 


我 们 在 Balances 的 示 


期 (结余 总 是 针对 


package dsl 
import api._ 


trait Portfolio { 


import bal.。 @ 对 象 导入 语法 


} 


val bal: Balances @ 为 结余 DSL 预 留 的 抽象 val 


def currentPortfolio(account: Account): Balance 


为 了 在 类 的 内 部 访问 bal 对 和 象 的 所 有 成 员 ， 我 们 运 月 


6-22 实 现 了 一 个 计算 客 


定义 完 接 口 ， 我 们 再 看 看 具体 实现 。 代 码 清和 


现 


代码 清单 6-22 ”资产 组 合 DSL 的 一 个 具体 分 


户 账 


有 了 Scala 的 对 象 导 入 (object import) 语法 @。 


户 结余 的 Portfolio 。 


trait ClientPportfolio extends Portfolio { 


val bal = new BalancesImpl ”落实 到 具体 的 位 


import bal._ 


现 


override def currentPortfolio(account: Account) = 


val amount = //.. 实现 细节 上 略 


val ccy = //.. 
val asofDate = //.. 


balance(amount, ccy, asOofDate) 


object ClLientPortfolio extends ClientPortfolio 


例 中 的 clientPortfolio DSL 已 经 落实 到 Balances 的 一 个 具体 实现 。 下 一 步 需 要 保证 ， 当 
ClientPortfolio 与 其 他 同样 用 到 Balances 的 DSL 组 合 时 ， 双 方 拥有 相同 的 Balances 实 
现 。 


我 们 用 另 一 个 例子 来 说 明 怎 样 做 到 这 一 点 。 代 码 清单 6-23 给 出 了 一 个 起 装饰 器 作用 的 Portfo1io 
实现 一 一 Auditing ， 它 可 以 为 其 他 Portfolio 实现 增加 审计 功能 


代码 清单 6-23 ”资产 组 合 DSL 的 另 一 个 实现 


trait Auditing extends Portfolio { 
val semantics: Portfolio @ 内 舱 的 资产 组 合 DSL 


val bal: semantics.bal.type 外 Scala 单 例 类 型 
import bal._ 


override def currentPortfolio(account: Account) = 
inBaseCurrency( 
semantics,.currentPortfolio(account))., 1 按 基本 货币 报告 结余 


T 


Auditing 不 但 能 与 其 他 Portfolio DSL 进 行 组 合 @， 还 保证 被 组 合 的 Portfolio ( 即 
semantics ) 与 它 骸 入 到 自身 的 Balances DSL@ 使 用 同一 个 实现 。 (Balances 帜 入 到 
Auditing 的 父 类 Portfolio 。) a 将 Auditing 的 成 员 bal 声明 为 
semantics.bal ， 从 而 将 它 定义 为 一 个 Scala 单 例 类 型 。 来 ， 可 以 指定 semantics 和 bal 
指定 具体 的 实现 ， 创 建 一 个 支持 Auditing 功 角 i ek 象 。 请 看 下 面 的 代码 片 
段 : 


object ClientPortfolioAuditing extends Auditing { 
val semantics = ClientPortfolio 
val bal: semantics,.bal.type = semantics.bal 


} 


通过 层级 方式 来 组 合 多 个 DSL， 其 优点 如 表 6-8 所 示 。 
表 6-8 ”通过 层级 方式 来 组 合 DSL 的 优点 


不 受 抽象 内 部 表达 的 影响 | 对 多 个 DSL 进行 组 合 时 ， 语 句 中 不 会 出 现 内 出 实现 的 任何 细节 
耦合 松散 参与 组 合 的 DSL 之 间 耦 合 松散 ， 各 自 可 以 独立 演 i 
静态 类 型 安全 Scala 拥 有 强大 的 类 型 系统 ， 可 以 由 编译 器 来 实施 所 有 的 约束 


DSL 组 合 这 一 主题 在 “Polymorphic embedding of DSLs” (6.10 节 文献 [7]) 这 篇 论文 中 有 详细 介绍 。 
如 果 和 希望 详细 了 解 在 Scala 语 言 中 组 合 DSL 的 其 他 方法 ， 请 参阅 该 论文 。 


< 


发 挥 Scala 语 言 面 向 
展示 了 很 多 示例 ， 但 我 们 对 


不 会 涉及 Monad 背 


对 象 编程 和 函数 式 编 程 的 双重 能 力 ， 灵 活 


合 各 种 抽象 的 技巧 ， 本 章 至 此 已 经 


组 合 


这 个 话题 的 讨论 还 缺 一 角 ， 那 就 是 Monad 化 抽象 。Monad 化 抽象 广 
泛 用 于 构建 具 备 组 合 性 的 计算 结构 。Monad 概 念 源 自 范畴 论 


Category theory) ” ( 别 紧张 ， 这 本 书 


9 后 的 数学 理论 ， 感 兴趣 的 话 ， 你 可 以 自行 研 9 
语言 的 Monad 化 结构 去 实现 一 些 语法 糖 。 这 种 技术 可 用 于 设计 


6.8 DSL 中 的 Monad 化 结构 


我 
程 提 供 的 组 合 能 力 要 超过 画 


直 反 复 强 调 ， 抽 象 组 合 得 越 好 ，DSL 的 可 读 性 就 越 强 。 当 


上 下 文 ， 可 以 单独 验证 的 
的 组 合体 。 我 不 准备 深入 介 


和 


来 使 用 ， 不 产生 改变 状态 的 


作 用 。 如 果 函 数 与 改变 状态 分 


究 ) 下 一 节 将 展示 怎样 利用 Scala 
DsL 操 作 FE 的 串联 机 制 。 


针对 “运算 ”进行 抽象 时 ， 画 数 式 编 


向 对 象 编程 模型 。 0 i 程 将 各 种 运算 都 当做 纯 数学 函数 


它 就 成 了 一 种 不 依赖 于 任何 外 部 


1. 什么 是 Monad 


Monad 9] 以 型 


的 组 合 语义 指挥 之 下 ， 用 来 构造 更 高 阶 的 抽象 。 


品 将 运算 的 结构 使 用 * 值 "月 
许多 Monad 再 按照 依存 关系 组 合 起 来 ， 


编程 提供 的 数 兴 模 地 运算 可 以 被 组 合成 一 些 函 数 式 
绍 范畴 论 或 者 其 他 具有 类 似 功用 的 数学 理论 体系 。 你 只 要 记 住 ， 画 数 
9 组 合 性 意味 着 我 们 可 以 用 简单 的 构件 块 搭建 出 复杂 的 抽象 。 


解 成 画 数组 合 或 者 加 强 版 的 绑 定 。 按 照 Monad 的 规则 构造 出 来 的 抽象 ， 可 以 在 优美 


生 且 的 范畴 论 ， 但 如 果 你 有 兴趣 了 解 ， 


要 对 象 是 Scala 语 言 中 一 些 具 


应 结构 更 加 优美 。 


本 节 的 补充 内 容 简 单 介 绍 了 Monad。Monad 概 念 的 详 引 


Monad 小 讲座 


Monad 是 一 种 可 以 绑 定 一 系列 运算 的 抽象 。 这 里 没有 给 出 理 ; 


Scala 的 语汇 来 界定 Monad 
从 一 阶 逻 辑 的 基本 原理 说 起 


的 讨论 不 会 深入 到 理论 层面 ， 


不 需要 深究 ， 放 松 就 好 。 


"使 用 这 些 值 的 运算 序列 ”来 表示 ， 我 们 就 得 到 一 个 Monad 抽 和 象 。 
可 以 构成 更 大 规模 的 运算 。Monad 的 理论 基础 是 令 人 望 而 
那么 6.10 节 文献 [10] 可 以 作为 初步 的 阅读 材料 。 一 般 读者 


且 只 会 针对 设计 Scala DSL 的 需要 ， 从 实用 的 角度 探讨 Monad 的 一 
特性 。 等 到 第 8 章 介绍 Scala 的 分 析 器 组 合子 时 ， 再 展示 更 多 的 Monad 化 构造 单元 。 本 节 讨 论 的 主 
1 备 Monad 性 质 的 操作 ， 它 们 可 以 使 DSL 的 组 织 比 面向 对 象 编程 中 的 对 


有 哪些 性 质 。 (如 果 按 照 传统 思路 


信息 请 参 


阅 6.10 节 文献 [9] 。 


全 化 的 一 般 性 定义 ， 而 是 试 着 用 


一 个 Monad 由 以 下 三 部 分 定义 。 


ES 


[Ne 


CD 


.一 个 抽象 M[A] ， 其 中 M 是 类 型 构造 画 数 。 在 Scala 语 言 


case class M[A], 
.一 个 unit 方法 (unit v) 


.一 个 bind 方法 ， 起 到 将 运算 排 成 序列 的 作用 。 在 Scala 


电 ;， 以 Scala 语 言 作 = 为 解释 基础 似乎 更 实用 一 些 


需要 动用 范 蝴 论 或 Haskell 语 言 言 ， 


Ns 


又 或 者 trait M[A] 。 


。 对 应 Scala 中 的 构造 画 数 new M(v) 或 者 M(v) 的 调用 。 


!' 可 以 写成 class M[A] ， 或 者 


bind f m 对 应 的 Scala 语 句 是 m flatMap f。 


! 通 过 flatMap 组 合子 来 实现 。 


例如 List[A] 是 Scala 语 言 
bind 方法 则 由 flatMap 组 合子 实现 。 


1 的 一 个 Monad。 它 的 unit 方法 | 


构造 画 数 List(...) 定义 ， 它 的 


那么 是 不 是 任何 抽象 只 要 具备 以 上 三 部 分 ， 就 成 了 一 个 Monad 呢 ? 不 一 定 。Monad 还 必须 满足 以 


1. 右 单 位 元 (identity) 。 即 对 于 任意 Monadm ， 有 m flatMap unit => m。 以 Scala 的 
List Monad 来 说 ， 我 们 可 以 得 出 List(1,2,3) flatMap {x => List(x) 
List(1,2,3) ° 


2. 左 单位 元 (unit) 。 即 对 于 任意 Monadm ， 有 unit(v) flatMap f => f(V) 。 换 成 
Scala 的 List Monad,， 这 个 关系 意 章 味 着 List(100) flatMap {x => f(x)} == 
f(100) ， 其 中 f 返回 一 个 List 。 


3. 结合 律 。 即 对 于 任意 Monadm ， 有 m flatMap g flatMap h => m flatMap {x => 
g(x) flatMap h} 。 这 个 定律 告诉 我 们 运算 的 结果 取决 于 运算 顺序 ， 但 不 受 藤 套 的 影 
响 。 作 为 练习 ， 读 者 可 以 在 Scala List 身上 验证 一 下 这 个 定律 。 


2. Monad 如 何 降低 非 本 质 复杂 性 


代码 清单 6-24 中 使 用 Java 编 写 的 例子 是 Web 交 易 应 用 中 的 一 个 典型 操作 。 我 们 赁 一 个 键 从 
HttpRequest 或 HttpSession 中 取出 对 应 的 值 。 我 们 取出 来 的 这 个 值 是 某 一 笔 交 易 的 编号 ， 
用 这 个 编号 可 以 从 数据 库 中 查询 到 具体 的 交易 ， 获 得 对 应 的 Trade 对 象 。 


代码 清单 6-24 ”Java 对 运算 中 分 支 路 径 的 处 理 方 式 


String param(String key) { 
//.. 从 请 求 或 会 话 获取 参数 值 
return value; 


Trade queryTrade(String ref) { 
查询 执行 数据 库 查 询 


return trade 


public static void main(String[] args) { 
String key; 
/.， 设置 要 获取 的 键 


String refNo = param(key); 
if (refNo == null) { @ 检查 空 值 
//.， 异常 处 理 
} 
Trade trade = queryTrade (refNo); 
if (trade == null) { @ 检查 空 值 
//.， 异常 处 理 


} 


这 段 代码 表现 出 一 定 程度 的 非 本 质 复杂 性 @， 对 抽象 的 表面 语法 造成 了 污染 。 在 这 段 从 上 下 文 参 
数 获取 领域 对 象 的 运算 中 ， 每 一 步 都 要 执行 空 值 检查 ， 且 每 次 检查 都 是 显 式 进行 的 。 代 码 清单 6- 
25 中 的 Scala 代 码 与 上 面 的 代码 功能 完全 相同 ， 但 利用 了 Scala 的 Monad 化 语法 结构 for 


Comprehension。 


代码 清单 6-25 Scala 的 Monad 化 语法 结构 for comprehension 


I 


def param(key: String): Option[String] = { @ Monad 化 的 返 
Mis 


} 


def queryTrade(ref: String): 
//.. 
} 


def main(args: 
val trade = 
( 
for { ©@ for comprehensions 
r <- param("refNo") 
t <- queryTrade (r) 


Array[String]) { 


} 
yield t 
) getorElse error("not found") 
//.. 


Option[Trade] = { @ Monad 化 的 返 


} 

main 方法 中 的 Monad 化 结构 最 终 怎么 串联 起 来 ， 创 建 出 Erade 对 象 ， 对 此 我 们 进行 详细 分 析 。 
param 返 返回 的 Option[String] @ 是 一 个 Monad。 按 照 Scala 的 设计 ，0ption[] 用 于 表示 一 则 
有 可 能 不 产生 任何 结果 的 运算 。queryTrade 返回 的 0ption[Trade] @ 也 是 一 个 Monad， 只 不 
过 它 的 类 型 不 同 于 Option[String] 。 我 们 希望 两 步 运算 的 串联 满足 一 定 的 条 件 ， 即 当 param 
返回 空 值 时 ，queryTrade 必须 不 被 调用 。 代 码 清单 6-24 用 了 显 式 的 空 值 检 查 来 实现 这 样 的 条 
件 。 而 这 里 因为 利用 了 Monad 化 结构 ， 让 option[] 在 其 实现 内 部 负责 空 值 检查 的 例 行 工 作 ， 表 
面 上 的 代码 得 以 保持 简介 ， 摆 脱 了 非 本 质 复 杂 性 @@。 

Monad 是 怎么 串联 两 步 运 算 的 呢 ? 是 通过 本 下 补充 门 窒 中 介 绍 的 Monad 三 要 素 之 一 bind 操 
作 。bind 操作 在 Scala 语 言 中 被 实现 为 flatMap 台 而 for comprehension@ 只 不 过 是 包 误 在 
flatMap 外 面 的 一 层 语法 糖 ， 从 下 本 i 这 一 点 。 

剥 掉 for comprehension 糖 衣 ， 里 面 掩盖 着 的 bind 操作 就 清楚 地 显露 出 来 了 。 


param("refNo") flatMap {r => 
queryTrade(r) map {t => 


t}} getOorElse error("not found") 


flatMap 组 合子 (等 价 于 Haskell 的 >>= 操作 ) 在 片段 
操作 将 param 的 输出 对 接 到 queryTrade 的 输入 ， 同 时 在 操作 内 部 处 理 所 有 必要 


起 到 一 种 承上启下 的 作用 


的 a 


可 读 怕 


检查 ° for 


日 合子 的 基础 


comprehension 在 fLatMap 经 


力 。 


对 Monad、flatMap 和 for comprehension 的 深入 讨论 超出 了 本 书 的 范围 。 
简化 DSL 的 实现 就 可 以 了 。 
算 进行 排 诅 


Monad 化 结构 和 操作 能 
杂 性 的 前 提 下 ， 对 存在 


此 之 外 ， Monad tf 泛 


依赖 关系 的 运 
9 作 一 种 机 


公历 


continuation 等 运算 。 显 然 ，Monad 的 这 些 


的 更 多 详细 信息 请 参考 6.10 世 文献 [10] 。 


上 -提供 更 高 阶 的 抽象 ， 进 一 步 改善 DSLP 


达能 


目前 来 说 
Monad 作 为 手段 ， 在 不 3 I 


网 
普 ; 通 个 过 的 一 和 


央 ， 解 释 纯 函 数 式 亩 


这 7 


上 


内 
是 Monad 最 i 
处 理 状态 变化 


站 和 
十 


法 都 可 


五 
口 


天语 的 副作用 ， 处 
以 用 来 改善 DSL 的 表现 力 。 Sealai 言 中 Monad 


为 了 给 讨论 画 上 一 个 漂亮 的 句号 ， 我 人 


] 最 后 用 一 个 例子 > 


力 。 这 个 例子 是 对 代码 清单 6-20 中 交 
comprehension 取 代 原 来 的 偏 函 数 
构建 DSL 。 时 让 例子 保持 简单 
comprehension 进 行 串 联 。 


处 理 
排列 操 


流程 DSL 的 目 


说 明 Monad 如 何 提高 DSL 抽 象 的 表现 


芷 的 | 
， 仅 针对 性 


顺序 。 这 个 


新 实现 ， 但 我 们 用 Monad 化 的 for 
强 维 去 


1 的 是 让 你 学 Monad 的 ， 
以 便于 通过 for 


人 


3. 设计 Monad 化 的 交易 DSL 


不 再 多 说 ， 我 们 这 就 换 一 种 方式 重新 定义 代码 清单 6-17 的 TradeDs1。 修 改 后 ， 所 有 的 流程 方法 
都 不 再 返回 PartialFunction ， 而 是 分 别 返回 一 个 Monad (Option[] ) 。 


代码 清单 6-26 ”Monad 化 的 TradeDs1 


package monad 


import api, 

class TradeDSs1LM { 
def validate(trade: Trade): Option[Trade] = //.. 
def enrich(trade: Trade): Option[Trade] = //.. 
def journalize(trade: Trade): Option[Trade] = //.. 


object TradeDs]lM extends TradeDSs1M 


用 一 个 for comprehension 套 住 上 面 的 DSL， 即 可 对 一 个 交易 的 集合 ; 


import TradeDs1LM,_ 


流程 方法 组 成 的 序列 : 


王 


val trd = 
for { 
trade <- trades 
trvalidated <- validate(trade) 
trEnriched <- enrich(trvalidated) 
trFinal <- journalize(trEnriched) 


yy 
yield trFinal 


除了 改 用 Monad 的 绑 定 操作 来 串联 各 步骤 ， 这 段 代码 的 功能 与 代码 清单 6-20 相 同 。 原 先 基于 偏 函 数 
的 实现 只 能 串联 类 型 完全 一 致 的 操作 。 而 这 段 for comprehension 里 面 的 操作 序列 ， 前 后 操作 的 类 型 
不 完全 一 致 。trades 是 Iterable 类 型 的 List ， 每 次 迭代 它 都 产生 一 个 Trade 对 象 。 我 们 

不 需要 特意 检查 列表 的 结尾 ， 因 为 List 也 像 0ption[] 一 样 是 个 Monad， a 

组 合子 会 处 理 好 类 似 的 边界 条 件 。validate 返回 一 个 0ption[Trade] ， 可 能 是 
Some(trade) ， 也 可 能 是 None 。 当 validate 的 输出 被 送 入 enrich 时 ， 不 需要 做 任何 显 式 的 
空 值 检查 ， 也 不 需要 进 和 村 任何 Option[Trade] -> Trade 显 式 转换 。 只 要 串联 用 的 管道 是 
List[] 、option[] 等 Monad 化 构造 ，flatMap 组 合子 会 自动 完成 所 有 的 绑 定 。 从 这 个 意义 上 
说 ， 通 过 Monad 绑 定 来 串联 操作 ， 比 代码 清单 6-17 通 过 偏 画 数 来 串联 效果 更 好 。 如 果 设计 得 当 ， 

Monad 化 的 操作 可 以 成 就 表现 力 强 的 DSL， 配 合 Scala 的 for 表达 式 (或 Haskell 的 do notation) 语 
法 糖 一 起 使 用 ， 效 果 尤 佳 。 


如 果 你 想 知道 上 面 片段 的 FLatMap 展开 形式 ， 它 是 下 面 这 个 样子 的 : 


trades flatMap {trade => 
validate(trade) flatMap {trVvalidated => 
enrich(trvalidated) flatMap {trEnriched => 
journalize(trEnriched) map {trFinal => 
trFinal 


} 


显然 这 种 写法 的 编程 味道 要 浓 很 多 ， 还 是 之 前 用 for 语句 的 版 本 更 适合 领域 用 户 阅读 。 


给 


读 完 本 节 ， 你 知道 Monad 是 Scala 提 化 


一 种 纯 数学 的 方式 ， 


把 


DSL 了 时 别 忘 了 善 用 这 


6.9 小 结 


些 素材 。 


技 齐 


i 


了 一 流 


Scala 社 群 
DSL 提 供 


于 DSL 事 出 
的 支持 。 


经 逐一 展 


过 分 析 证 券 交 易 领域 的 众 


层 实现 模型 


DSL 需 要 


的 一 重 门 下 
在 契约 层次 上 表现 ! 


的 另 


和 


1 抽象 


F 段 


象 按照 依赖 关系 串联 起 来 。Scala 自 


有 因 。Scala 作 为 现今 最 


a | 


展示 能 用 于 内 部 DSL 设 计 的 Scala 语 言 特性 。 我 们 从 一 份 Scala 特 性 
入 多 DSL 片 段 ， 认 真 深入 分 析 这 些 DSL 片 段 的 设计 。 从 结 
。 本章 的 讨论 焦点 在 令 


页 域 模型 与 它 


最 具 影 响 力 的 编程 语言 之 一 ， 


绿 


澡 


。 它 与 偏 画 数 有 


名 


| 微 的 差别 。 
带 了 不 2 少 Monad 化 的 构造 单元 ， 


为 设计 富有 表现 力 的 


单 开 始 ， 多 


构 上 说 ，DSL 是 


上 的 语言 抽象 之 间 来 


已 


J 


合 能 力 ， 


避免 暴露 任 


循 这 样 
他 DSL 或 者 核心 应 用 。 
静态 地 组 合 到 一 起 。 

力 的 DSL 构 造 单 
但 用 处 
过 多 的 非 本 质 复杂 愧 


要 点 与 最 佳 实践 


的 原则 ， 


因为 不 同 


不 小 。Scala 的 Monad 化 语 


的 DSL 


我 们 还 介 


和 


J 


dq 


讨 


何 实现 引 


让。 你 的 设计 


全 和 需要 修改 某 
在 最 后 阶段 
1 元 。Monad 在 Scal 


同 的 Scala 内 部 DSL 之 间 
， 我 们 观察 了 Mona 
i 的 位 置 并 不 像 它 古 


论 


2 le 


语 
法 


FEHaskell 编 程 模 下 


换 。 


， 怎 样 利 用 S 
d 化 的 操作 怎样 帮助 


个 DSL 的 实现 时 ， 
cala 强 大 的 类 


" 它 能 | 


jj 


后 通 
对 


汰 ) 


如 哎 要 亲 


影响 其 


系统 ， 


全 已 
日 合 能 


型 


来 排列 领域 操作 的 


for comprehension 可 以 


。 Scala 语 法 简练 ， 可 省 略 句 末 分 号 ， 具 备 类 型 推断 特性 。 


持 紧 凑 。 


特性 可 以 使 DSL 的 表面 


' 的 地 位 大 
项 序 ， 同 


显著 


二 不 引入 


面 语 法 保 


。Scala 有 丰富 的 语言 构造 可 作为 设计 抽象 的 手段 ， 请 充分 利用 类 、trait、 对 象 等 元 件 去 提高 
DSL 实 现 的 扩展 能 力 。 
。 Scala 提 供 了 强大 的 画 数 式 编程 能 力 。 请 善 用 这 种 能 力 来 对 DSL 中 的 行为 进行 抽象 。 摆 脱 对 
象 范式 的 钢 周 ， 使 DSL 实现 对 用 户 的 表现 力 更 强 。 
内 部 DSL 需 要 一 种 宿主 语言 ， 有 时 会 受到 宿主 语言 能 力 的 限制 。 打 破 这 些 限 制 的 方法 之 一 是 自己 
设计 一 种 外 部 DSL。 下 一 章 将 探讨 外 部 DSL 的 若干 基本 构件 。 从 编 译 器 和 语法 分 } 析 器 的 些 基本 
理论 入 手 ， 然 后 过 渡 到 分 析 咽 组 合子 (parser combinator) 等 目前 广泛 使 用 的 高 阶 结构 。 冤 请 期 


符 ! 
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第 7 章 外 部 DSL 的 实现 载体 


本 章 内 容 


。 外 部 DSL 的 处 理 流程 
。 语法 分 析 器 的 分 类 

。 用 ANTLR 开 发 一 种 外 部 DSL 

。 Eclipse Modeling Framework 与 Xtext 


外 部 DSL 跟 内 部 DSL 一 样 ， 都 是 在 已 有 的 领域 模型 外 面 覆 盖 一 人 差别 在 于 怎样 实现 这 
象 。 外 部 DSL 会 自行 建立 一 套 语言 处 理 设施 ， 包 括 语法 分 析 器 、 词 法 分 析 器 和 处 理 逻 辑 。 


我 们 的 讨论 将 从 外 部 DSL 处 理 设施 的 整体 架构 开始 。 内 部 DSL 可 2 让 主语 言 的 基础 设施 ， 而 
外 部 DSL 需 要 从 头 开 始 构建 它们 。 第 一 步 我 们 打算 手工 编写 一 个 语法 分 析 器 ， 然 后 使 用 ANTLR 语 
分 析 器 生成 吉 开 发 你 的 第 个 3 绍 另 一 种 外 部 DSL 开 发 范 
在 外 部 DSL 开 发 环境 Xtext 的 支持 下 ， 基 于 Eclipse Modeling Framework (EMF) 的 模型 驱动 
太志 。 图 7-1 是 本 章 讨 论 进程 的 路 线 图 。 


- 
A 


写 


剖析 外 部 DSL 的 构造 
。 基础 设施 的 主要 组 成 部 分 
。 语义 模 者 的 产生 和 填充 


| 


语法 分 析 


为 什么 外 部 DSL 需 要 


。 语法 
。 语法 抽出 全， 
。 使 用 ANTLR 的 示例 


器 的 分 类 


用 Xtext 设 计 一 个 外 部 DSL 


图 7-1 ”本章 路 线 图 
本 章 将 学 习 利 用 能 从 市 面 上 获得 的 工具 开发 一 套 语言 处 理 基 础 设施 。 有 了 这 些 基础 设施 ， 就 可 以 
用 它 开发 自 定义 DSL 语 言 处 理 程序 。 
7.1 解剖 外 部 DSL 
1.5 节 粗略 描绘 过 在 自 定义 语言 基础 设施 的 基础 上 ， 构 建 外 部 DSL 的 情况 。 本 节 将 从 细节 上 探讨 
DSL 的 架构 怎样 随 着 它 所 描述 的 领域 模型 4 而 发 展区 化 ， 期 间 还 会 讨论 供 设 计 者 选择 的 实现 选项 以 
及 如 何 取舍 。 
7.1.1 最 简单 的 实现 形式 
我 们 从 外 部 DSL 最 简单 的 实现 形式 说 起 。DSL 的 自 定义 语法 需要 有 配套 的 语法 分 析 器 。 分 析 引 擎 
首先 对 输入 流 进行 词法 分 析 ， 将 其 转化 为 可 识别 的 词法 单元 (token) 。 词 法 单元 在 语法 上 也 称 ; 
终结 符号 (terminal) 。 随 后 这 些 词法 单元 作为 语法 正确 的 语句 ， 被 送 入 产生 式 规 则 roi 
rule) 进行 处 理 。 整 个 过 程 如 图 7-2 所 示 。 
DSL 脚 本 语法 分 析 | 
ge 基础 设施 目标 操作 

。 词法 分 析 

。 语法 分 析 

。 抽象 语法 树 

。 代码 生成 


图 7-2 外 部 DSL 最 简单 的 实现 形式 。 


语法 分 析 基 础 设施 包揽 了 产生 目标 操作 所 需 的 一 切 事 务 。 


i is (词法 分 析 、 语 法 分 析 、 生 成 AST、 生 成 代码 ) 全 部 集中 在 一 个 构造 块 


处 理 DSL 脚 本 输入 和 生成 必要 输出 所 需 的 全 部 工作 都 


语法 分 析 基 础 设施 3 


大 


行 。 


执 


品 DSL 不 一 定 需 要 非常 复杂 精密 的 语法 分 析 基 础 设施 。 对 于 简单 的 领域 语言 ， 用 字符 串 处 理 
人 器、 正则 表达 式 处 理 器 等 简单 的 数据 结构 来 充当 语法 分 析 引 擎 的 做 法 并 不 罕见 。 此 时 将 词法 分 
析 、 语 法 分 析 、 代 码 生 成 等 操作 步骤 整合 到 一 起 往往 是 合理 的 。 
图 7-2 的 设计 无 法 很 好 地 适应 较 复 杂 的 情况 。 在 需求 很 简单 ， 且 复杂 性 不 会 增加 的 情况 下 ， 我 们 可 
以 为 语言 处 理 基 础 设施 选择 这 种 大 包 大 揽 的 实现 形式 。 可 惜 世界 上 的 问题 不 都 是 简单 的 。 下 一 小 
将 会 介绍 ， 解 决 复杂 性 的 唯一 途径 是 用 不 同 模块 实现 不 司 任务 | 并 且 引 入 适当 程度 


7.1.2 对 领域 模型 进行 抽象 
图 7-2 中 全 能 的 语法 分 析 基 础 设施 把 产生 目标 输出 所 需 的 一 切 处 理工 作 都 放 在 一 个 盒子 里 完成 。 前 
而 提 到 ， 这 种 设计 难以 适应 语言 复杂 性 增加 的 情况 。 以 一 个 不 算 复杂 的 DSL 来 说 ， 该 设施 至 少 需 
要 在 它 的 单个 抽象 单元 内 执行 以 下 任务 。- 依据 一 套 语 法 规则 对 输入 进行 分 析 。 


。 语言 经 过 分 析 后 被 保存 为 AST 的 形式 。 较 为 简单 的 场合 可 以 省 略 生 成 AST 的 步骤 ， 直 接 在 语 
法 中 嵌入 目标 操作 。 


。 对 AST 进 行 标注 ， 将 其 充实 为 中 间 表 示 ， 为 执行 目标 操作 做 好 准备 。 
。 处理 AST， 执 行 代码 生成 等 目标 操作 。 

让 一 个 抽象 单元 承担 这 么 多 职责 ， 负 担 实在 太 重 了 。 我 们 想 一 想 有 没有 解决 的 办 法 。 

1. 模块 化 

我 们 可 以 试 着 从 大 盒子 里 分 离 出 来 一 部 分 职责 ， 让 设计 变 得 模块 化 一 些 。 图 7-3 是 一 种 分 法 


出 

| 
还 
ch 
党 

o 


Pa . (核心 的 语法 分 析 ) 
> 。 对 和 输入 的 DSL 脚 本 进行 语法 分 村 ee 
六 aa » ye 
.7 。 生成 抽象 语法 树 
本 。 对 AST 进 行 标注 ， 淮 备 好 中 间 表 示 
(领域 抽象 ) 需 进一步 分 离 的 步骤 ) 


对 图 7-2 大 中 盒子 包含 的 四 项 职责 进行 分 解 ， 分 离 任 务 。 虚 线 围 起 来 的 部 分 分 别 代表 一 项 功 


语法 分 析 是 图 7-3 的 核心 功能 之 一 ， 应 该 用 一 个 独立 的 抽象 来 表示 。 语 法 分 析 的 结果 之 一 目 然 是 产 
生 一 棵 AST。AST 以 一 种 独立 于 语言 语法 的 形式 ， 呈 现 ; 言 的 结构 化 形态 。 根 据 AST 在 下 一 阶段 的 
用 途 和 处 理 要 求 ， 我 们 需要 为 增加 其 他 信息 ， 如 对 象 类 型 、 标 注 等 上 下 文 标记 。 增 加 了 这 些 信 
息 的 AST 逐 渐 积累 语言 的 语义 信息 


2. 语义 模型 


在 为 某 一 领域 设计 DSL 的 过 程 中 ， 充 实 后 的 AST 成 为 该 领域 的 语义 模型 。 图 7-3 前 两 部 分 之 所 以 出 
现 重 释 ， 是 因为 核心 语法 分 析 过 程 要 产 出 某 种 数据 结构 。 


然后 由 下 一 阶段 的 处 理 过 程 向 该 数据 结构 注入 领域 知识 。 于 是 完整 流程 就 如 图 7-4 所 示 ， 我 们 可 以 
将 领域 的 语义 模型 作为 DSL 人 处理 流程 中 的 一 个 核心 抽象 。 


DSE 丢 本 厂 耻 语法 厂 一 | 语义 模型 三 一 
2 分 析 器 目标 操作 
。 词法 分 析 。 充实 后 的 领域 模型 
。 语法 分 析 。 自 底 向 上 发 展 


。 由 语法 分 析 器 产生 和 填充 


图 7-4 ”我 们 将 图 7-2 的 语法 分 析 设 施 基础 设施 盒子 拆 分 成 两 个 抽象 。 语 法 分 析 器 负责 核心 的 语法 分 
析 。 语 义 模型 从 语法 分 析 引 擎 中 独立 出 来 ， 成 为 单独 的 抽象 。 语 义 模型 封装 了 所 有 的 领域 相关 事 
项 ， 预 备 提交 给 后 续 负 责 生成 目标 操作 的 设施 


语义 模型 是 DSL 脚 本 处 理 后 产生 的 、 增 加 了 领域 语义 的 数据 结构 。 0 与 DSL 的 语法 无 关 ， 
更 多 地 反映 了 系统 的 解答 域 模 到 型 。 语 义 模型 作为 一 层 完 美的 抽象 ， 分 离 了 输入 的 语法 导向 的 脚本 
结构 与 男 一 边 的 目标 操作 


DSL 处 理 流程 的 目标 输出 有 很 多 功能 。 它 可 以 直接 生成 应 用 代码 。 它 也 可 以 生成 一 些 资 源 ， 供 应 
用 运行 时 使 用 和 解释 ， 比如 Hibernate 来 产生 数据 模型 的 对 象 -关系 映射 文件 。Hibernate 是 一 种 
ORM (对 象 -关系 -上 映射) 框架。 详情 请 参阅 http://www.hibernate.org。 语 义 模 型 使 上 下 层 保 持 分 
离 ， 同 时 独自 充当 所 有 必要 领域 功能 的 供应 仓库 。 


拥有 一 个 设计 得 当 的 语义 模型 ， 对 于 提高 应 用 的 可 测试 性 大 有 好 处 。 因 为 我 人 ] 可 以 脱离 DSL 的 语 
法 层 ， 单 独 测试 应 用 的 整个 领域 模型 。 下 面 就 来 更 详细 地 讨论 一 下 语义 模型 ， 观 察 它 是 怎样 在 外 
部 DSL 的 开发 周期 中 逐渐 形成 的 。 


Tt 


右 
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语义 模型 是 供应 领域 模型 的 仓库 。 语 法 分 析 器 一 边 消耗 DSL 脚 本 的 输入 流 ， 一 边 填 充 语 义 模型 。 
语义 模型 的 设计 完全 独立 于 DSL 语 法 ， 而 且 模 型 的 构成 方式 和 内 部 DSL 一 样 ， 些 更 小 的 抽象 
目 底 向 上 组 合 起 来 图 7-5 形 象 说 明了 语义 模型 怎样 由 下 至 上 逐渐 形成 一 个 汇集 领域 结构 、 属 性 和 


J 更 大 规模 的 语义 模型 


汇集 领域 结构 和 ee 
领域 行为 的 仓库 组 全 


nm------------------~ 
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图 7-5 语义 模型 由 众多 较 小 的 领域 抽象 自 底 向 上 组 合 而 成 。 我 们 先 发 展 出 各 种 领域 实体 的 抽象 ， 
即 虚 线 框 中 的 小 抽象 单元 ， 然 后 把 它们 一 层 一 层 地 组 合成 更 大 的 实体 ， 最 后 得 到 一 套 完整 的 领域 
抽象 ， 也 就 是 我 们 的 语义 模型 


外 部 DSL 这 种 边 做 语法 分 析 ， 边 填 充 语义 模型 的 方式 ， 正 是 它 与 内 部 DSL 的 区 别 所 在 。 我 们 在 构 
i 先 在 宿主 语言 中 建立 较 小 的 抽象 ， 然 后 通过 宿主 语言 本 身 的 组 合 功 能 ， 
的 。 而 对 于 外 部 DSL 来 说 ， 对 语 De 法 分 析 与 产生 较 小 的 抽象 同步 进行 ， 分 析 树 成 长 壮 
Ss 意味 着 语义 模型 凝聚 更 多 的 ， 成 为 领域 知识 的 具体 表示 。 


产生 语义 模型 之 后 ， 我 们 用 它 来 生成 代码 ， 操 作 数 据 库 ， 或 者 继续 生成 其 他 应 组 件 所 需 的 模 
型 。 现 在 回头 看 看 图 7-4 的 DSL 人 处理 染 构 ， 听 完 前 面 的 讲解 ， 你 是 否 相 信 了 拆 分 抽象 的 好 处 呢 ? 


以 架 架构 的 角度 来 说 ， 内 部 和 外 部 DSL 都 是 建立 在 语义 模型 上 面 的 一 层 抽象 。 内 部 DSL 借 用 了 4 
语言 的 语法 分 析 器 ， 公 布 给 用 户 的 契约 只 是 包 在 语义 模型 外 表 的 薄 薄 一 层 装 饰 。 外 部 DSL 需 要 
行 构建 相关 设施 去 解析 DSL 脚 本 并 执行 一 些 操作 ， 执 行 的 结果 是 填充 了 语义 模型 。 


语法 分 析 器 在 外 部 DSL 的 处 理 设施 中 负责 识别 DSL 脚 本 语法 。 各 种 形式 的 语法 分 析 器 和 词法 分 析 
器 需要 用 到 不 同 的 实现 技术 ， 人 掌握 这 些 技 术 是 学 习 外 部 DSL 开 发 的 重要 一 环 。 


下 一 节 将 讨论 语法 分 析 技 术 。 我 们 并 不 打算 详细 论述 语法 分 析 器 实现 ， 而 会 在 大 致 了 解 之 后 ， 介 
绍 几 种 语法 分 析 技术 及 其 所 针对 的 语法 类 别 。 选 择 最 合适 的 工具 (如 语法 分 析 器 生成 器 ) 开发 外 
部 DSL 时 ， 不 见得 需要 完全 了 解 分 析 器 是 怎么 实现 的 。 当 然 ， 设 计 不 同类 别 的 语言 有 不 同 程度 的 
0 些 分 析 器 的 实现 技术 总 是 有 用 的 。 本 章 末 尾 列 出 的 参考 文献 可 以 作为 学 习 这 
万 四 0 识 JIn 导 


7.2 语法 分 析 器 在 外 部 DSL 设 计 中 的 作用 
待 执行 的 DSL 脚 本 被 送 入 词法 分 析 器 ， 经 过 词法 分 析 器 的 处 理 ， 输 入 流 被 划分 为 语法 分 析 器 能 


解 的 的 可 识别 单元 。 当 语法 分 析 器 顺利 处 理 完全 部 输入 流 ， 到 达 一 个 成 功 的 终结 状态 ， 我 们 就 说 
该 语法 分 析 器 识别 了 输入 的 语言 。 图 7-6 是 这 个 过 程 的 图 解 。 


航 
Et 
漠 
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Wk 


进行 语法 分 析 并 生 


词法 单元 成 一 棵 语法 分 析 树 


词法 分 析 器 语法 分 析 器 


x Ss 


图 7-6 ”语法 分 析 过 程 。DSL 肢 本 被 送 入 词法 分 析 器 去 划分 词法 单元 ， 结 果 送 入 语法 分 析 器 


一 提起 词法 分 析 器 和 语法 分 析 器 ， 我 们 总 是 不 由 目 地 想 得 很 复杂 ， 实 际 上 上 并非 如 此 。 它们 的 复 
杂 度 取决 于 你 所 设计 的 语言 。 前 面 提 到 ， 假 如 DSL 足 够 简单 ， 我 们 甚至 不 必 区 分 词法 分 析 阶段 和 
语法 分 析 阶段 。 一 个 通过 正则 表达 式 来 操作 调整 输入 脚本 的 字符 串 处 理 器 ， 就 是 以 承担 全 部 的 解 
析 工 作 。 简 单 的 语言 可 以 靠 手 工 编写 分 析 器 ， 与 之 相对 ， 更 复杂 一 些 的 语言 需要 借助 一 些 专业 的 
开发 设施 。 下 面 就 介绍 如 何 使 用 生成 语法 解析 器 的 基础 设施 ， 来 构建 面向 复杂 DSL 的 语法 解析 


DSL 脚 本 | 
取 下 一 个 词法 单元 


7.2.1 语法 分 析 器 、 语 法 分 析 器 生成 器 


我 们 所 设计 的 语法 分 析 器 ， 实 质 是 对 语言 语法 的 一 种 抽象 。 如 果 我 们 打算 手工 编写 整个 分 析 器 ， 
那么 需要 做 这 两 件 事 情 


。 定 义 语 言 的 BNF 语 法 ; 
。 编写 与 该 语法 对 应 的 语法 分 析 器 。 


然而 手工 编写 有 一 个 次 病 ， 这 样 写 出 来 的 全 部 语法 都 柑 入 到 了 代码 中 。 对 语法 的 任何 修改 ， 都 意 
I 这 种 情况 是 实施 编程 的 抽象 层次 过 低 的 典型 表现 ( 附 
杂 A 有 详细 解释 


对 于 较 复 杂 的 语法 分 析 器 ， 利 用 语法 分 析 器 生成 器 要 比 直 接手 写 更 好 一 些 。 语 法 分 析 器 生成 器 可 
以 提高 我 们 实施 编程 的 抽象 层次 。 我 们 只 需要 定义 这 两 样 东西 


。 按 Extended Backus Naur Form (EBNF) 语法 格式 书写 的 语法 规则 |; 
。 当 语 法 规则 识别 成 功 时 ， 和 希望 执行 的 自 定 义 操 作 。 


在 运用 生成 器 的 情况 下 ， 实 现 自 定义 语法 分 析 器 的 基础 代码 完全 封装 在 生成 器 内 部 。 错 误 处 理 、 
生成 分 析 树 等 一 般 事务 成 为 内 建 在 生成 器 内 部 的 标准 例 程 ， 无 论 我 们 创建 什么 样子 的 语法 分 析 
器 ， 这 些 部 分 都 相同 。 

语法 分 析 器 生成 器 作为 一 种 提高 抽象 层次 的 技术 ， 其 优点 首先 是 减少 代码 量 ， 减 轻 编写 、 管 理 、 
维护 的 负担 。 另 外 ， 很 多 生成 器 自 E 够 生成 多 种 目标 语言 下 的 语法 分 析 器 ， 这 也 是 重要 的 优点 。 
7-1 汇 总 了 目前 常用 的 几 种 生成 器 


表 7-1 当前 存在 的 语法 分 析 器 生成 器 


天 


‘lil 


语法 分 析 器 生成 器 td 详情 
属于 UNIX 发 布 版 的 一 部 分 (最 早 开 发 于 1975 年 ) ， 生 成 C 语 言 编写 的 语 
YACC LEX 法 分 析 器 


1 辕 于 GNU 发 布 版 的 一 部 分 ， 功 能 几乎 与 YACC 和 和 LEX 相同， 但 能 生成 
Bison Flex C++ 语 言 编写 的 语法 分 析 器 1 


ANTLR (Whttp://antlr.org) 已 包含 在 Terrance Parr 开 发 。 能 生成 多 种 语言 编写 的 语法 解析 器 ， 包 括 Java、 
ANTLR 内 C、C++、Python、Ruby 等 语言 
动 生成 词法 | Coco/R 是 一 种 编译 器 生成 器 ， 将 一 种 源 语言 的 属性 语法 (attributed 
Coco/R 扫描 器 grammar) 输入 给 它 ， 它 会 生成 该 语言 的 词法 扫描 器 (scanner) 和 语法 分 
(scanner) 析 器 


除了 表 7-1 列 出 来 
(JavaCC， 见 https://javacc.dev.java.net/ ) 和 IBM 人 公司 
http:/www10. 


的 这 几 下 


! 生 成 器 ， 还 有 原 Sun Microsystems 公 司 开发 的 Java Compiler Compiler 
生发 的 Jikes Parser Generator ( 见 
。Jike 和 JavaCC 生 成 的 都 


software.ibm.com/developerworks/opensource/jikes/project/ ) 


是 Java 代 码 的 语法 分 析 器 ， 其 功能 也 都 类 似 于 YACC 和 Bison 。 

无 论 产 生 语法 分 析 器 的 途径 是 手工 编写 ， 还 是 由 生成 器 产生 ， 指 导语 法 分 析 器 行为 的 始终 是 你 所 
用 语言 的 语法 。 当 分 析 器 成 功 识别 了 语言 ， 它 会 产生 一 棵 语法 分 析 树 ， 将 整个 识别 过 程 封装 到 这 
个 弟 归 的 数据 结构 里 面 。 如 果 我 们 在 语法 规则 上 附加 了 自 定义 动作 ， 那 么 最 后 生成 的 分 析 树 也 会 
增加 这 些 额外 信息 ， 形 成 语义 模型 。 接 下 来 我 们 用 ANTLR 做 一 次 示范 ， 看 看 生成 器 怎样 把 自 定义 
语法 翻译 成 领域 语义 模型 。 


7.2.2 语法 制导 翻译 


外 部 DSL 实 现在 处 理 一 段 有 
型 。 语 义 模 型 充当 领域 操作 的 仓库 ， 供 给 


想 成 功 识别 ， 


! 的 语法 ， 然 后 经 过 解析 和 翻译 ， 产 生 语 义 模 
尼 ? 表 7-2 说 明 ， 要 


却 本 上 时， 首先 要 识别 脚本 
后 续 的 程序 使 用 。 那 么 如 何 识别 语法 


我 们 需要 准备 两 套 材料 。 


表 7-2 ”识别 DSL 语 法 


材料 作用 


大 
定 哪些 产生 式 是 


一 套 语 义 规 由 


的 符号 的 属 怕 


关 语法 


1， 作 
FE。 这些 规 则 在 


语法 规定 了 撰写 DSL 的 结构 形式 。 只 有 按照 文法 规则 定义 写成 的 DSL 脚 本 才 是 有 效 的 
: 本 节 的 所 有 例子 都 用 ANTLR 生 成 器 来 定义 语法 

条 语法 规则 里 ， 我 们 可 以 进 义 
生成 语法 分 析 树 ， 也 可 以 是 生成 其 他 人 
可 。 这 些 操 作 很 容易 定义 。 任 何 一 种 语法 分 


。 它 的 意义 是 决 


入 


步 定 


对 象 是 语法 识别 
生成 语义 


是 


析 器 生成 器 都 允许 在 DSL 语 法 的 定义 中 蔡 入 其 


模型 时 发 挥 作 


他 语言 的 代码 。 例 如 ANTLR 可 以 侍 入 Java 代 码 ，YACC 可 以 内 藤 C 代 码 


图 7-7 
型 。 


展示 了 语法 规则 及 其 附带 的 E 


成 器 的 处 理 ， 最 后 变 成 语义 模 


定义 操作 如 何 经 过 语法 


EBNF 规 则 一 < 一 一 一 自 定义 操作 


(语言 的 语法 ) 


FP 进行 语法 分 析 并 生 
词法 单元 成 一 棵 语法 分 析 树 ; 


词法 分 析 器 语法 分 析 器 


取 下 一 个 词法 单元 


DSL 脚 本 


集成 到 核心 应 用 程序 < 一 一 一 一 | 语义 模型 


图 7-7 语法 分 析 器 生成 器 的 输入 是 语法 规则 及 其 附带 的 自 定义 。 生 成 器 随后 生成 词法 分 析 器 和 语 
法 分 析 器 。DSL 脚 本 经 过 词法 和 语法 分 析 器 的 处 理 ， 形 成 语义 模型 。 语 义 模型 成 为 核心 应 用 的 一 


部 分 
那么 ， 我 们 就 拿 不 DSL” 做 一 次 实习 ， 用 ANTLR 生 成 器 来 实现 其 语言 解析 。 
练习 中 将 定义 词法 分 析 器 和 语法 ， 并 且 在 语法 定义 里 加 入 若干 自 定义 操作 ， 生 成 交易 指令 处 
DSL 的 语义 模型 。 
1. 预备 ANTLR 示 例 
我 们 要 定义 的 语言 类 似 于 第 2 章 用 Groovy 开 发 的 交易 指令 处 理 DSL， 而 且 还 要 更 简单 一 些 。 这 个 例 
于 的 目的 是 演示 通过 语法 分析 器 生成 器 开发 外 部 DSL 的 步 又 。 我 们 的 工作 除了 制定 DSL 的 语法， 
还 要 建立 语义 模型 ， 然 后 由 语义 模型 来 生成 一 个 代表 全 部 交易 指令 的 自 定 义 抽象 。 
假设 用 户 向 交易 机 构 发 出 了 一 串 交 易 指令 ， 看 上 去 是 这 个 样子 : 
buy IBM @ 100 for NOMURA 
sell GOOGLE @ limitprice = 70 for CHASE 
整 组 指令 由 格式 相同 的 若干 行 构成 。 我 们 首先 要 用 ANTLR 设 计 一 个 能 处 理 这 段 脚 本 的 外 部 DSL， 
然后 生成 适当 的 数据 结构 作为 语义 模型 。 简 单 起 见 ， 我 们 规定 每 一 行 代表 一 条 交易 指令 ， 用 户 下 
达 的 全 部 指令 构成 个 指令 列 表 集 合 。 第 一 步 从 设计 词法 分 析 器 开始 。 词 法 分 } 析 器 的 作 ) 是 对 输 
入 脚本 进行 预 处 理 ， 使 它 成 为 一 组 可 被 语法 识别 的 符号 。 
2. 设计 词法 分 析 器 
词法 分 析 器 读 入 输入 流 ， 比照 预 设 的 词法 单元 定义 ， 将 输入 流 中 的 字符 组 合 转换 成 一 个 个 词法 单 
元 。 利 用 ANTLR， 可 以 在 文法 定义 中 直接 内 联 词法 规则 ， 也 可 以 将 词法 规则 单独 写 到 另外 的 文 
件 。 我 们 的 例子 单独 用 一 个 文件 保存 全 部 词法 单元 定义 ， 文 件 名 为 OrderLexer.g。ANTLR 用 .g 扩 展 
名 来 表示 文法 定义 文件 〈g 是 grammar 的 首 字 母 ) 。 请 注意 ， 代 码 清单 7-1 在 书 写 词法 单元 定义 时 也 
用 了 一 种 DSL， 其 可 读 性 和 表现 力 都 很 优秀 。 
代码 清单 7-1 ”OrderLexer.g: 用 ANTLR 编 写 的 DSL 词 法 分 析 器 
lexer grammar OrderLexer 
EQ “= 
BUY "buy ' ， 
SELL : "Sel1'， 
AT '@ 
FOR : 'for'; 
LPRICE 'limitprice'; 
ID eb 0 
INT 9 9 +) 
NEWLINE : ANr， 2 '\n! 
WS : (|'\t')+ ee }; ” 跳 过 空格 


词法 规则 按 “ 贪 梦 ” 方 式 匹 
ee 分 不 出 高 低 的 情况 ， 
J 


会 选取 匹配 程度 最 高 的 规则 。 假 如 


接 下 来 我 们 转 到 另 一 个 尚 待 实现 的 方 


分 析 器 在 对 输入 流 进行 匹配 时 ， 
i 分 析 器 会 按照 规则 在 定义 文件 中 的 出 现 次 序 ， 选 取 
同一 一 语言 的 语法 。 语 法 由 我 们 设计 的 语法 


最 先 出 现 的 规 


规则 来 决定 。 


3. 设计 语法 规则 


你 希望 DSL 有 什么 样 的 语法 ， 就 定义 什么 样 的 语法 规则 。 由 于 我 们 的 DSL 特 别 简单 ， 而 且 只 是 
来 演示 ， 所 以 尽量 省 略 错误 处 理 方面 的 功能 ， 善 重 突出 语法 规则 的 架构 方面 。 读 者 可 以 从 7.6 节 文 
献 [2] 了 解 ANTLR 在 语法 规则 定义 上 的 详细 做 法 ， 以 及 它 为 用 户 提 供 的 各 种 灵活 选项 。 
代码 清单 7-2 定 义 的 语法 规则 放 在 一 个 单独 的 文件 OrderParser.g 里 面 。 文 件 中 描述 语法 所 用 的 标记 
方法 ， 对 于 语言 设计 者 来 说 ， 是 表达 能 力 极为 出 色 的 EBNF 语 法 标记 。 当 将 词法 分 析 器 和 语法 分 析 
a 语法 分 析 器 的 处 理 程序 代码 整合 在 一 起 时 ， 你 就 会 发 现 ANTLR 如 何 通过 这 些 EBNF 描 
生成 真正 的 语法 分 析 器 代码 。 生 成 语法 分 析 器 涉及 的 所 有 繁重 事务 都 由 ANTLR 生 成 器 代劳 。 
有 心 定义 好 语言 的 语法 即 可 。 
代码 清单 7-2 ”OrderParserg: 用 ANTLR 编 写 的 DSL 文 法 规则 
parser grammar OrderParser; 
options { 
tokenVocab = OrderLexer;”@ 词法 分 析 器 的 引 
orders : order+ EOF;”@ 全 部 交易 指令 
order : line NEWLINE; ”@ 每 条 交易 指令 独占 一 行 
line : (BUY | SELL) security price account 
security : ID; 
limitprice : LPRICE EQ INT; 
price : AT (INT | limitprice); 
account : FOR ID; 
熟悉 EBNF 语 法 记号 的 读者 会 觉得 这 些 文法 规则 很 好 理解 。 我 们 希望 建立 一 个 交易 指令 的 集合 @。 
每 则 指令 占 一 行 ， 说 明 下 达 的 指令 详情 @。 语 法 定义 文件 的 开头 部 分 有 一 个 指向 词法 分 析 器 类 的 
引用 ， 放 在 options 块 内 @。 
ANTLR 带 有 一 个 图 形 界面 的 语言 解释 环境 (ANTLRWorks， 见 http://www.antlr.org/works ) ， 人 允许 
用 户 i 通过 规定 的 语法 交互 地 运行 示例 DSL 脚 本 。 该 环境 会 帮 我 们 建立 分 析 树 。 如 果 文 法 规则 的 解 
析出 现 异常 ， 我 们 还 可 以 在 该 环境 内 进行 调试 。 
代码 清单 7-2 指 定 的 语法 并 没有 包含 任何 语法 制导 翻译 方面 的 自 定 义 操 作 。 这 是 故意 为 之 ， 目 的 是 
让 你 领略 一 下 ANTLR 语 法 定义 提供 的 DSL 语 法 多 么 轻巧 灵 便 。 只 要 准备 好 语法 规则 ， 就 避 以 成 功 
识别 一 段 有 效 的 DSL 脚 本 ， 并 不 需要 其 他 任何 东西 ! 下 一 小 节 将 学 习 怎样 在 语法 规则 中 骸 入 Java 代 
码 来 执行 自 定 义 操作 。 


4. 嵌入 其 他 语言 的 代码 作为 自 定义 操作 


像 代 码 清单 7-2 那 样 


的 文法 规则 ， ANTLR 通 过 它 生 成 的 分 析 器 ， 可 以 构建 一 棵 默认 的 分 析 树 。 如 


人 
希望 在 分 析 树 上 增加 其 他 信息 ， 或 者 希望 经 通过 分 析 DSL 脚 本 生成 另 一 个 语义 模型 ， 那 么 可 以 采 
用 内 和 骸 其 他 语言 代码 的 方式 ， 于 模型 内 添加 自 定 义 操 作 。 下 面 就 在 代码 清单 7- 2 定义 的 语法 规则 基 
础 上 ， 添 加 自 定 义 操 作 代 码 ， 让 DSL 脚 本 在 解析 后 生成 一 个 自 定 义 的 Java 对 象 集合 
内 舱 代 码 首先 需要 定义 0rder 对 象 ， 这 是 一 个 简单 的 Java 对 象 (POJO) 。 解 析 脚 本 后 ， 它 会 生成 
由 一 个 Order 对 象 列表 构成 的 语义 模型 。 代 码 清单 7-3 展 示 了 瞬 入 语法 规则 中 的 最 终 操 作 。 
代码 清单 7-3 ”OrderParser.g: 语法 规则 中 内 艇 了 执行 自 定义 操作 的 代码 


parser grammar OrderParser; 


options { 
tokenVocab = OrderLexer; 
} 


@header { ， 设 定 内 葵 代 码 需要 的 导入 声明 和 包 声 明 
import java.util.List,; 
import java.util.ArrayList,; 


@members { 分 析 器 类 共享 的 代码 
private List<Order> orders = new ArrayList<Order>(); 
public List<Order> getorders() { 
return orders; 


} 
} 
orders : order+ EOF; 
order : line NEWLINE {orders.add($line.value);};”@ 构造 order 对 象 的 集合 


| 


line returns [order value] @ 规则 有 返回 值 
(e=BUY | e=SELL) security price account 


{ 


$value = new Order($e.text, $security.value, 
$price.value, $account.value); 


}; 
security returns [String value]: ID {$value = $ID.text;}; 


limitprice returns [int value] 
: LPRICE EQ INT {$value = Integer.parseInt($INT.text);}; 


price returns [int value] : AT 


INT {$value = Integer.parseInt($INT.text);} 
| 


limitprice {$value = $1imitprice.value;} 


); 


account returns [String value] : FOR ID {$value = $ID.text;}; 


如 果 读 者 不 熟悉 EBNF 风 格 的 语法 规则 描述 方式 ， 或 者 不 清楚 在 规则 中 磐 入 操作 代码 的 写法 ， 可 以 
参阅 7.6 节 文献 [2]。 注 意 ， 我 们 可 以 对 规则 定义 返回 值 @@， 和 返回 值 会 跟着 语法 分 析 的 进展 向 上 传 
播 。 赂 套 的 运算 一 层 层 同 上 递 进 ， 最 后 形成 一 个 0rder 对 象 的 集合 @。 

order 类 的 抽象 如 代码 清单 7-4 所 示 ， 其 代码 出 于 演示 目的 已 经 尽量 简化 。 


代码 清单 7-4 ”Orderjava: Order 抽象 


| 


public class Order { 
private String buySell; 
private String security; 
private int price; 
private String account; 


public Order(String bs, String sec, int p, String acc) { 
buysSell = bs; 
security = sec; 
price = p; 
account = acc; 


} 


public String toString() { 
return new StringBuilder() 
.append("order is ") 
.append(buySell) 


.append("/") 
.append(security) 
.append("/") 
.append(price) 
.append("/") 
.append(account) 
.tostring(); 


下 一 小 市 要 编写 语言 处 理 程序 的 主 模块 ， 由 ANTLR 生 成 的 词法 分 析 器 、 语法 分 析 器 ， 以 及 其 他 任 
天 目下 要 pa 


ee 定义 的 Java 代 码 ， 都 要 在 这 里 整合 到 一 起 。 下 面 就 来 看 看 DSL 脚 本 是 怎样 被 解析 并 产生 输 ! 


5. 构建 语法 分 析 器 模块 


我 们 现在 就 可 以 用 ANTLR 构 建 分 析 器 ， 与 驱动 代码 进行 集成 。 不 过 在 此 之 前 ， 还 要 先 准 备 好 驱动 
代码 。 了 驱动 代码 的 任务 是 从 输入 中 取得 字符 流 ， 传 递 给 词法 分 析 器 从 而 生成 词法 单元 ， 再 传递 给 
语法 分 析 器 对 DSL 脚 本 进行 识别 。 代 码 清单 7-5 中 的 Processor 类 就 是 这 样 的 一 段 驱 动 代码 。 


代码 清单 7-5 ”Processor.java: 分 析 器 模块 的 驱动 代码 


Import java.io,.*,; 

import java.util.List; 

import org.antlr.runtime.*; 
import org.antlr.runtime.tree.*; 


public class Processor { 
public static void main(String[] args) ， 张 动 入 
throws IOException, RecognitionException { 
List<Order> os = 
new Processor().processFile(args[0]); 
for(Order o : 0s) { 输出 指令 列表 
System.out.printlin(o); 


} 


private List<Order> processFile(String filePath) 从 文 伯 
throws IOException, RecognitionException { 
OrderParser p = 

new OrderParser( 
getTokenStream(new FileReader(filePath))); 四 语法 分 析 器 读 入 词法 单元 流 
p.orders(); 
return p.getorders(); 


中 读 入 DSL 脚 本 


tt 


private CommonTokenStream getTokenStream(Reader reader) 
throws IOException { 
OrderLexer lexer = 
new OrderLexer(new ANTLRReaderStream(reader)); 
return new CommonTokenStream(lexer); ”词法 分 析 器 生成 的 词法 单元 流 


} 
} 


划分 词法 单元 和 读 取 输入 流 都 利用 了 ANTLR 的 内 建 类 。 这 上段 代码 在 构造 语法 分 析 器 @ 之 后 ， 随 即 
在 起 始 符号 上 调用 了 orders( ) 方法 ， 这 个 方法 是 ANTLR 生 成 的 。 代 码 中 引用 的 所 有 类 (如 
orderLexer 、CommonTokenStream 和 orderParser ) ， 要 么 是 ANTLR 根 据 语法 规则 生 
的 ， 要 么 来 自 ANTLR 运 行 时 。 这 段 代码 假设 待 执行 的 DSL 脚 本 存放 在 一 个 文件 里 面 ， 其 路 径 作为 
命令 行 调用 的 第 一 个 参数 提供 。 


代码 清单 7-5 还 稍微 演示 了 一 下 语义 模型 的 用 途 ， 它 输出 语法 分 析 过 程 中 生成 的 0rder 对 象 列表 。 
如 果 在 真实 的 应 用 当中 ， 我 们 可 以 将 这 些 对 象 提供 给 系统 中 的 其 他 模块 ， 这 样 一 来 ，DSL 就 与 应 
用 的 核心 集成 在 一 起 了 。 


一 节 做 了 不 少 工作 ， 现 在 不 妨 简要 回顾 一 下 。 
6. 目前 的 成 果 


ANTLR 提 供 了 org,.antLr.Tool 等 工具 类 ， 负 责 根据 语法 定义 文件 生成 Java 代 码 。 然 后 所 有 的 
Java 类 ， 包 括 作 为 自 定义 代码 一 部 分 的 Java 类 ， 都 按照 一 般 的 构建 过 程 那样 编译 就 可 以 了 。 至 此 ， 
处 理 外 部 DSL 的 基础 设施 就 搭建 完毕 了 表 7-3 对 我 们 已 完成 的 工作 做 了 一 个 小 结 。 


表 7-3 ”使 用 ANTLR 语 法 分 析 器 生成 器 构建 外 部 DSL 的 步骤 


步骤 说 明 

尺码 清单 7-1 建 立 了 词法 分 析 器 OrderLexer.g。 词 法 单元 定义 沿用 了 之 前 的 交易 指令 处 理 
DSL 
注意 : 词法 分 析 器 的 定义 文件 应 该 与 语法 分 析 器 的 定义 分 开 。 单 独 存 储 的 词法 定义 可 以 
跨 语 法 分 析 器 重 
尺码 清单 7-2 定 义 了 DSL 的 语法 ， 定 义 文件 OrderParser.g 按 照 ANTLR 的 语法 写成 


() 确 定 词法 要 素 ， 为 ANTLR 准 备 词 
法 分 析 器 


(2) 用 EBNF 标 记 编 写 文法 规则 


文法 规则 的 作用 是 识别 有 效 的 DSL 语 法 ， 并 在 出 现 无 效 语法 时 给 出 异常 
ee 尺码 清单 7- 3 充实 了 语法 规则 的 定义 ， 通过 插入 自 定义 的 Java 代 码 ， 向 语法 分 析 过 程 中 注入 
(3) 生 成 语义 模型 了 语义 操作 。 插 入 的 一 个 个 代码 片段 ， 实 际 上 是 搭建 语义 模型 的 部 件 
(Cg 收尾 尺码 清单 7-4 的 自 定义 Java 代 码 完 成 对 order 抽象 的 建 模 。 代 码 清 单 7-5 的 驱动 代码 利 
ANTLR 的 基础 设施 ， 将 我 们 的 DSL 脚 本 送 入 前 面 建 好 的 语法 分 析 过 程 


经 历 了 上 面 这些 工 作 ， 我 们 应 该 对 通过 语法 分 析 器 生成 器 来 构建 和 处 理 外 部 DSL 的 完整 开发 过 程 
有 了 基本 了 解 。 利 用 生成 器 来 实现 外 部 DSL 是 非常 常见 的 做 法 。 如 果 你 希望 构建 基于 自 定义 基础 
设施 的 语言 来 设计 外 部 DSL， 那 么 使 用 生成 器 是 最 适合 的 。 


ANTLR 是 一 款 十 分 优秀 的 的 语 法 分 析 器 生成 器 ， 广泛 用 于 构建 各 式 分 析 器 和 DSL。 我 们 现在 的 成 
果 只 发 挥 了 ANTLR 的 一 小 部 分 能 力 。ANTLR 能 处 理 许多 种 类 的 语法 ， ye 甚至 连 文法 的 分 类 都 
没 介绍 。 理 论 上 ， 如 果 对 生成 的 分 析 器 没有 效率 上 的 要 求 ， 我 们 其 实 可 以 分 析 任 意 语 言 。 但 实际 
上 我 人 需要 作出 让 步 。 开 发 DSL 时 ， 我 们 希望 分 析 器 能 以 最 高 效率 处 理 我 们 的 语言 言 。 一 款 能 处 理 
许多 种 语言 的 通用 分 析 器 虽然 不 坏 ， 但 假如 它 处 理 起 我 们 的 语言 效率 低下 ， 那 对 于 我 们 就 没什么 
处 。ANTLR 只 是 分 析 器 生成 工具 中 的 一 种 ， 它 所 生成 的 分 析 器 只 能 识别 一 部 分 特定 类 型 的 语 


二 


mf 


DSL 的 设计 者 需要 清楚 语法 分 析 器 的 一 般 分 类 ， 每 一 种 分 析 器 的 实现 难点 ， 还 有 每 种 分 析 器 能 
处 理 的 语言 类 型 。 所 以 下 一 世 将 全 面 介 绍 语法 分 析 器 的 分 类 及 其 实现 复杂 度 


7.3 语法 分 析 器 的 分 类 


当 语法 分 析 器 成 功 识别 传递 给 它 的 输入 流 ， 就 会 为 DSL 脚 本 产生 一 棵 完整 的 分 析 树 。 分 析 器 依据 
分 析 树 节点 的 构造 顺序 ， 分 为 不 同类 别 。 有 的 分 析 器 从 根 节点 开始 构造 分 析 树 ， 称 为 自 顶 向 下 
(top-down) 分 析 器 。 有 的 分 析 器 则 相反 ， 一 开始 先 构造 [ 子 节点 ， 然 后 逐 层 构造 根 节点 。 这 类 
分 析 器 称 为 自 底 向 上 (bottom-up) 分 析 器 。 自 顶 向 下 和 自 底 向 上 这 两 类 分 析 器 的 实现 复杂 度 不 同 ， 
人 构 类 型 也 不 相同 。DSL 设 计 者 至 少 应 该 大 致 了 解 每 一 类 分 析 器 的 相关 概 
念 。 图 7-8 分 别 展示 了 这 两 类 分 析 器 构造 分 析 树 的 过 程 。 


从 起 始 符号 


开始 ， 


自 顶 向 下 的 语法 分 析 


TN 


遇 到 语 


言 规定 的 终结 符号 时 终止 


从 终结 符号 


自 底 向 上 的 语法 分 析 


起 始 符号 


图 7-8 自 顶 向 下 分 析 器 和 目 底 向 上 分 析 器 构造 分 析 树 的 过 程 


开始 ， 遇 到 起 始 符号 时 终止 


本 节 主 要 围绕 分 析 树 的 构造 方式 ， 以 及 从 产生 式 规则 推导 语言 的 方式 ， 来 讨论 语法 分 析 器 的 分 

类 。 在 自 顶 向 下 和 自 底 向 上 两 大 类 别 之 下 ， 存 在 着 多 种 多 样 的 变 体 ， 分 别 适 合 识别 不 同类 型 的 语 
言 结构 ， 同 时 实现 复杂 度 也 有 着 相应 的 变化 。 这 里 假设 读者 已 经 基本 了 解 语 言 处 理 方面 的 概念 ， 
掌握 语法 分 析 技 术 、 前 瞻 处 理 〈look-ahead processing) 、 分 析 树 等 基础 知识 。 如 果 需 要 了 解 这 方 
面 的 背景 知识 ， 请 参阅 7.6 节 文献 [3] 。 

首先 介绍 自 顶 向 下 分 析 器 ， 学 习 其 中 一 些 常见 的 实现 变 体 。 


7.3.1 简单 的 自 顶 向 下 语法 分 析 器 


大 向 下 分 
说 ， 


常见 的 自 


器 从 根 节点 开始 构造 分 析 树 ， 


4 分 可 处 理 输 是 从 左边 的 符号 到 


顶 向 下 


嚼 呢 ? 递归 ， 说 昌 
分 析 树 的 构造 从 树 的 顶部 开始 ， 


的 学 习 过 程 将 从 最 简 


通过 高 效率 的 实现 


入 的 | 
分 析 唤 


顺序 


向 输入 流 的 最 左 


RD (recursive descent, 


Tf 器 是 通过 一 系列 递归 画 


与 4 


单 的 


两 和 


最 简 生 


实现 ， 


1. LL(1) 递 归 下 降 分 析 器 


LL(1) RD 分 析 器 依靠 
一 个 LL 表示 分 析 器 从 左 到 右 扫 描 
的 次 序 是 从 左 到 右 。 


子 


右边 的 


递归 下 降 ) 分 析 器 。 
数 调 用 实现 的 (参见 7.6 节 文献 [1]) 


推导 


大口 


符号 。 


顶 向 下 ”的 含义 相同 。 


单 的 RD 分 析 器 开始 ， 然 后 逐步 深入 到 其 他 功能 更 强 
只 别 出 更 多 的 语 


涵盖 了 设计 外 部 DSL 所 需 的 大 部 分 功能 。 


一 个 前 昌 


入 词法 自 


单元 完成 对 语法 


输入 


中 


字符 串 。 第 二 个 


上 于 


最 后 括号 


节点 


- 卢 - 


号 。 由 于 仅 有 唯 


的 


了 


要 


是 分 析 


有 到 


前 颇 符 


Et 


可 5 


分 析 器 将 根据 这 


AAA = ed 


LL 表示 当 分 析 
内 的 1 从 分 } 析 器 的 定义 就 


Dl 


条 正好 与 前 瞻 


全 匹配 的 


1 要 外 


下 分 析 器 


通过 对 i 


有 时 


分 析 器 永远 弟 


本 吾 法 定义 提 


时 雪人 


介绍 了 这 分 


的 技术 


付 沁 元 


J 能 有 多 条 产生 式 规则 天 头 都 
解决 这 种 同 _ 前 蜀 


Ee 


入 符号 


取 左 


言 类 。 首 先 讨论 LL(1) 和 LL(k ) RD 分 析 器 


(leftmost derivation) 进行 。 也 


递归 下 降 这 个 名 字 应 该 如 


。 下 降 指 的 


大 也 更 复杂 的 分 析 


。 它们 是 


顶 辐 下 


结构 的 分 析 。LL(D 这 个 


器 自 模 


瓜子 及 


应 该 怎 
至 叶 构 造 分 析 树 时 产生 


羊 理解 ? 第 


BE 铺 到 ， 


大 品 


是 同 个 


[I a HE 
匹配 多 条 规则 的 语法 二 


产生 式 规则 ， 


文 个 符号 选择 与 其 匹配 的 下 一 条 产 台 


已 代表 每 步 向 前 看 一 
E 式 规则 。 


个 符 


[HH 


3 


会 怎么 村 


因子 的 方式 ， 


递归 


ee ”例如 


下 去 。 语 


前 面 提 过 ，R 


语 汶 


去 


分 析 器 通过 


凯 偏 
a 


' 出 现 
系列 


于 


尼 ? 这 种 情况 有 


可 能 出 


A 在 号 


症 


问题 ， 


高 LL(D 分 析 器 万 
我 从 


向 前 看 
证 ] 可 以 改 用 k >1 的 LL(K ) 分 
岳之 满足 LL(D RD 分 析 器 的 要 求 〈 详 


乡 如 “A : A al b” 的 规则 ， 


的 


个 数 仅 为 


十 


见 7.6 节 文 


就 会 令 自 


递归 


SE 的 左 j 


法 


弟 归 


可 以 通 


过 规则 变 ## 


调用 来 实现 。 


来 ; 


肖 除 。 


产生 陈规 则 


的 
7.6 节 文献 [3] 详 


2. LL(k ) 递 归 下 降 分 析 器 


LL(K ) 分 析 器 与 LL(1) 分 析 Wn 但 


瞻 集 来 判断 适用 于 输入 
衡 之 下 ， 比 起 提高 分 析 


LL(K ) 分 析 器 到 底 能 


名 全 已 


如 他 目 忆 


消除 语法 规则 的 二 义 性 方 
另外 一 些 巧妙 的 特性 。 
。7.3.2 节 将 讨论 回 济 


言 。 局 及 


分 析 


它 { 


做 Ai 电 


更 多 的 前 脆 符 号 ， 


人 允许 有 


生 式 


力 的 好 处 ， 


多 少 ? 增 
站 然 只 


因此 功 角 


羊 依靠 其 前 


企 


规则 。 虽 然 更 大 的 前 8 


集 意味 着 更 


吉 构 ， 但 权 


增加 一 点 复杂 度 还 是 


大 前 脆 集 ， 使 LL(k ) 分 


能 解析 更 多 的 让 


机 语言 。 但 在 


:能 应 付 k 个 符号 以 全 并 


时 可 以 为 LL(k )4 分 析 器 增加 


这 


回 淹 即 为 其 
名 语 O 


ANTLR 可 生成 能 处 理 任 意 前 


析 、 解 释 其 自 


和 定义 十 吾 


万 


集 的 LL(k ) 分 析 器 ， 最 适 
Engine 、 Yahoo Cuery ee (YQL) 
义 语 


掌握 了 分 析 器 的 基本 
率 可 能 个 两， 但 还 是 


A 


FE 


多 式 ， 


好 


之 一 ， 具 备 


回溯 能 力 的 分 析 器 可 


六 识别 具有 任意 前 瞻 集 的 话 


一 、 


、IntelliJ IDEA 等 


人 讨论 一 些 比较 高 级 的 


直 得 我 们 了 解 其 


夹 现 ， 学 习 它 们 为 提高 


下 全 在 实际 应 用 
许多 大 型 软 


顶 向 下 分 析 器 。 这 些 分 析 器 的 使 用 上 
效率 而 采取 的 技术 手段 。 何 况 第 8 章 讨 


实现 DSL。Google App 
人 应 用 都 采用 了 ANTLR 来 


lH 


论 通过 Scala 分 析 器 组 合子 设计 外 部 DSL 时 ， 将 要 用 到 其 中 一 种 技术 。 
7.3.2 高 级 的 自 顶 向 下 语法 分 析 器 

高 级 的 语法 分 析 技 术 可 以 赋予 分 析 器 更 强大 的 功能 Se 。 不 过 一 般 我 们 
通过 分 } 析 器 生成 器 、 分 析 器 组 合子 等 抽象 手段 习 间接 实 见 分 析 器 ， 其 实现 复杂 性 已 经 被 封装 在 二 
象 内 部 。 开 发 者 使 用 的 只 是 抽象 对 外 公开 的 接口 而 已 。 


1. 递归 下 降 回 溯 分 析 器 


这 和 
溯 机 制 的 帮助 下 ， 
成 别 的 规则 重 妆 
提升 。 


分 析 器 


法 谓 


4 在 回溯 并 选择 另 一 条 规 


根据 我 们 指定 的 顺序 ， 
和 一 


这 类 分 析 器 支持 一 


选择 最 


词 (syntactic predicate) 的 


分 析 器 可 以 根据 
f 进 行 尝试 。 与 LL(k ) 分 析 器 


则 


小 
口 


分 析 器 在 LL(k ) RD 分 析 器 的 基础 上 增加 


了 回调 机 制 ， 


古语 


时 》 


AL 


当 的 


ER 
， 向 分 


要 癌 前 试探 。 如 果 找 不 到 匹配 


因此 能 够 处 班 


项 


从 ， 


#8 相 比 ， 这 种 试探 机 制 使 下 


PE 2 


没有 选择 的 优先 次 序 呢 ?上 


规则 用 于 输入 流 。 


"表达 能力 更 强 的 i 


五 、 


区 式 ，， 


法 


语法 ) 。PEG 对 ANTLR 的 区 


测 和 外 


1 语 


用 于 文法 规则 的 定义 ， 可 对 
解 得 多 。 运 用 中 间 结 果 记 忆 


器] 浊 


2. 带 中间 结 果 记 忆 的 分 析 器 


回溯 RD 分 析 器 在 执行 


湖 ， 沦 试 ] 


过 缓存 分 析 的 部 分 中 间 结 : 


提高 效率 很 好 ， 不 过 加 入 记 
漳 分 析 器 实现 的 效率 入 为 提高 


了 提 


c 忆 机 上 


增 


本 jJ 


法 i 
明和 分 析 器 和 
(memoizing) 等 技术 ， 


其 他 规则 时 ， 常 常 要 重复 计算 


骨 词 ; 


致 的 控制 。 


行为 进行 更 细 
我 们 可 以 


分 析 的 效率 。 


称 为 PEG (parsing expression an 


并行 了 扩展 ， 提 高 了 表现 力 。 它 加 入 了 & 、 
开发 出 线性 


些 分 析 结 果 。 


任意 大 小 的 前 瞻 集 。 在 回 
分 析 器 则 回 深 其 输入 ， 换 
漳 分 析 器 的 分 析 能 力 有 了 极 大 


ANTLR 为 例 ， 我 们 可 以 通过 语 
开 器 提示 规则 的 优先 次 序 〈 见 


7.6 节 文献 2]) 。 分 析 器 


解析 表达 
! 等 运算 符 
文法 描述 7 本 身 读 起 来 也 好 理 
时 间 的 PEG 分 析 器 


乙 的 分 析 器 


带 记 | 号 通 


加 一 


三 


站 味 着 需要 更 多 的 内 存 空 


上 站 来 放置 前 面 的 计算 


| 


吉 果 。 传 统 


从 制 | 所 带 来 的 


ANTLR 支 持 记 忆 功 能 


记忆 分 析 器 需要 占用 更 大 内 存 空 


不 需要 我 们 亲 


司 上 


和 


用 更 
这 种 分 析 器 除了 它 奇特 的 名 字 ， 


吕 ] 


弱点 ， 


以 通过 一 入 


及 烦 还 是 值得 


的 。 况 且 ， 我 们 的 老 朋 友 


1 叫做 Packrat 分 态 租 的 实现 方案 来 规避 。 
更 为 引 人 注 目的 是 其 函数 式 特征 〈 计 


羊 见 7.6 节 文献 [6]) 。Haskell 等 


函数 式 语言 


言 具 备 的 惰性 


特性 


分 析 器 时 ， 会 再 


次 详细 探讨 


3. 语义 谓词 分 析 器 


有 时 ，RD 分 
表达 式 ， 


四 启 


可 以 很 


FPackrat 分 析 器 。 


》 析 器 无 法 仅 赁 


语法 本 号 判断 应 该 应 


以 帮助 它 做 出 决定 ”人 和 公 人 角 


AAA 
语义 请 
,2 五 二 
心 语 已 


的 详细 
目 顶 向 下 


之 相称 的 分 析 器 


司 分 析 吕 
全 
解说 请 参阅 第 7.6 节 文献 [1] 。 


分 析 时 非常 简单 ， 
例如 本 节 介绍 的 


的 典型 用 途 


是 ， 用 单个 分 析 器 3 


的 规则 。 
当 Boolean 表 达 式 求 值 


然 地 应 用 在 Packrat 分 析 器 的 实现 当 


我 们 可 以 在 分 


来 处 理 


Lf 


而 语言 


启 


类 似 于 


扩展 和 其 


7.3.1 


引 调 分 析 器 、 


术 通 及 应 的 语言 言 结构 


已 围 更 广 


rm 


也 版 本 ， 则 


节 的 LL(1)。 
记忆 分 析 


和 
| 力 


Th 局: 
六 让 


但 对 于 


复杂 


、 语义 谓 


适用 性 


， 马 们 可 以 识别 和 
更 强 


性 


[od 
里 


E 意 有 


人 确 


定 + 


7.3.3 目 底 向 上 语法 分 析 器 


目 拼 向 


上 分 析 器 从 叶子 
文法 规则 的 后 续 规 约 构造 


] 上 分析 器 最 
|, 它 


前 


= = 二 


它 有 两 种 


选择 。 


引 互 取 


EE 


推导 


， 朝 语法 的 


实现 的 时 间 复 杂 度 和 空间 
FF 下 文 无 关 语 


开始 构造 分 析 树 ， 逐 步 移 向 根 世 点 。 
起 始 符 


为 常用 的 实现 技法 称 为 移 进 - 归 约 


符号 移 进 到 
iT 句柄 ”(handle 


左 部 的 非 终 


过 


日 


两 和 


最 为 常用 的 


一 
i 器 在 各 种 生成 器 


' 是 LR 分 


3 (i 


) 


施 丰 > 
和 


号 方向 处 理 。 


方向 


党 推 入 某 和 


符号 栈 ) 供 后 续 


( 即 输入 串 中 


吉 符 号 替换 


1. 算 符 优 先 分 析 器 


这 大 
系 规 


1 自 底 向 J 


用 出 。 


算 


列 的 


存在 
的 要 求 ， 因 为 规则 expr operator expr 中 


expr 
a 


符 优先 分 析 


该 句柄 。 


进 - 
算 符 优先 2 
| 二 非常 广 泛 的 应 


这 个 步骤 一 般 称 为 


RT 


约 式 


旗 癌 


限 的 语言 


-分 析 器 ， 
分 析 器 功能 有 限 


MWY. 用 


Le 


归 约 。 


为 真 时 ， 候 选 规则 才 算 


吾 言 的 多 个 版 本 。 
语义 谓词 去 解 ; 


的 语言 分 析 ， 我 人 
有 词 分 析 器 。 这 些 高 
了 所 降低 。 下 一 小 节 
意义 上 说 ， 他 们 比 


析 器 


上 标 六 


。8.2.3 节 谈 及 各 种 Scala 


FE 一 些 Boolean 


oo 个 


匹配 成 功 。 


分 相 
o 六 


器 的 


ey 


承担 核 


EE 
党 。 


寺 语 义 谓 词 分 析 器 


。 分析 器 从 左 向 右 扫描 输 入 流 ， 


与 


(shift-reduce) 分 析 。 分 析 器 扫描 输入 并 过 


与 一 条 产生 式 规则 右 部 相 匹配 的 子 串 ) 


“| 


给 ]” 六 


1 日 


和 


算 符 优 2 


但 手工 


。 号 基 ] 


FE 终结 符号 的 文 


expr reo expr 
1*17/ 


工 实现 , 1 


人 大; 


J: 


分 配给 各 终结 


] 需 要 


准备 能 力 与 
高 级 分 析 技 


将 介绍 另 一 


自 顶 向 下 分 析 


[= 


通过 对 


自 顶 向 下 分 析 器 正好 相 


到 


， 并 以 产生 


EE (operator precedence) 


实现 起 来 极为 简单 


。 相 对 来 说 ， 


因而 适用 范围 


既 处 理 


受到 


个 了 同 


符号 的 多 重 优 先 关 系 ， 


组 前 


态 优先 关 


能 识 另 


又 不 不 能 识别 


限制 。 例 如 下 面 的 片段 就 不 符合 算 符 优先 文法 


终结 符号 


人 有 多 个 相 邻 的 非 


SSH 


J 守 ° 


接 下 来 我 们 要 介 


绍 一 


一 种 


应 用 最 为 ) 


泛 的 


氏 向 上 分 析 器 ， 


和 Bison 等 流行 的 2 分 析 器 生成 器 所 采用 。 
2. LR(K ) 分 析 器 


它 能 实现 非常 多 的 语言 类 型 ， 


也 为 YACC 


LR(k) 分 析 器 是 效率 最 高 的 自 底 向 上 分 析 器 ， 它 可 以 识别 一 大 类 上 下 文 无 关 文法 。LR(k) 名 字 中 的 
工 指 分 析 器 从 左 扫描 输入 串 。R 指 其 分 析 过 程 是 构造 最 右 推 导 的 逆 过 程 。 最 后 的 k 显然 还 是 指 
前 瞻 符 号 的 数目 ， 分 析 器 依据 k 个 前 脆 符 号 来 决定 适用 的 产生 式 规则 。 


LR 分 析 器 由 2 分 析 表 绒 动 。 生成 器 将 分 析 器 识别 出 输入 符号 时 应 该 执行 的 操作 ， 存 储 在 一 张 分 析 表 
'。 这 里 所 谓 的 操作 其 实 就 是 移 进 或 者 归 约 。 整 个 输入 串 识别 完毕 ， 我 们 说 成 分 析 器 “ 归 约 到 了 
文法 的 起 始 符号 ”。 


这 种 类 型 的 分 析 器 很 难 手 工 实现 ， 但 YACC、Bison 等 生成 器 对 LR 分 析 器 的 支持 十 分 完善 
3.LR 分 析 器 的 变 体 


R 分 析 器 有 三 种 变 体 ， 简单 LR (SLR) 、 前 瞻 LR (LALR) 、 规 范 LR (canonical LR) 。SLR 分 
析 器 使 用 简单 的 逻辑 来 判断 前 瞻 集 合 ， 分 析 过 程 容易 产生 大 量 的 冲突 状态 。LALR 分 析 器 较 SLA 复 
杂 ， 对 前 瞻 的 处 理 更 周详 ， 剖 突 也 更 少 。 规 范 LR 分 析 器 比 LALR 能 识别 更 多 类 型 的 语言 。 


4. 我 们 真正 会 用 的 方法 


分 析 器 是 外 部 D5L 的 核心 所 在 。 我 们 需要 基本 了 人 解 分 析 器 与 被 识别 的 语言 类 型 之 间 的 关系 。 本 节 
介绍 了 很 多 这 方面 的 专门 知识 ， 应 该 能 帮助 选择 正确 类 型 的 分 析 器 去 实现 DSL。 不 过 在 现实 
le 言 实在 太 过 简单 ， 否 则 我 们 绝对 不 会 手工 实现 分 析 器 。 使 分 析 器 生成 器 才 是 正 

选择 


使 用 生成 器 ， 我 们 可 以 在 更 高 级 的 抽象 上 思考 。 定好 文法 规则 (也 就 是 语言 的 语法 ) ， 然后 生成 
器 帮助 构建 实际 的 分 析 器 实现 。 不 过 别 忘 了 ， 生 成 的 实现 中 只 包含 语言 的 识别 机 制 和 一 棵 简单 的 
AST 树 。 我 们 还 要 进一步 将 AST 转 换 为 语 义 模型 才能 满足 DSL 处 理 的 实际 需求 。 建 立 语 义 模型 的 
方法 是 在 文法 规则 中 肉 入 自 定义 的 操作 代码 。 


0 从 而 在 更 高 级 的 抽象 上 使 用 生成 器 进行 DSL 开 


= 


me 
全 
: 海 字 


7.4 工具 支持 下 的 DSL 开 发 一 一 Xtext 


像 ANTLR 这 样 的 语法 分 析 器 生成 器 ， 对 于 在 更 高 级 的 抽象 上 开发 外 部 DSL 是 一 大 进步 。 不 过 我 们 
还 是 需要 直接 在 文法 规则 中 花 入 目标 操作 。EBNF 规 则 没有 与 语义 模型 的 生成 逻辑 充分 分 离 。 假 如 
我 们 希望 为 一 套 文法 规则 实现 多 个 语义 模型 ， 除 了 复制 分 析 器 本 身 的 代码 ， 或 者 通过 文法 规则 提 
供 的 共同 抽象 基础 去 派生 不 同 的 语义 模型 ， 恐 人 没有 更 好 的 办 法 。 
Xtext 是 一 个 各 这 在 Eclipse 平台 基础 上 的 外 部 DSL 开 发 框架 。 它 提供 了 管理 DSL 完整 生命 周期 的 全 
[ 具 。Xtext 集 成 了 EMF (Eclipse Modeling Framework) ， 并 且 会 以 组 件 形式 管理 DSL 开 发 过 程 
产生 的 所 有 内 容 。 (关于 EMF 框 架 的 详情 请 查阅 http://www.eclipse.org/emf 。) 
使 用 Xtext 时 ， 我 们 首先 编写 好 语言 的 EBNF 文 法 。 然 后 EMF 根 据 文法 生成 以 下 产物 : 

。 基 于 ANTLR 生 成 的 语法 分 析 器 ; 

。 语言 的 元 模型 ， 基 于 EMF 的 Ecore 元 模型 语言 ; 


。 一 个 目 定 义 Eclipse 编 辑 器 ， 带 有 语法 高 亮 、 代 码 提示 、 代码 补 全 功能 ， 还 为 我 们 的 模型 提 信 
一 个 可 定制 的 大 纲 视图 。 


图 7-9 展 示 Xtext 对 我 们 定义 的 EBNF 文 法 规则 做 了 哪些 后 续 处 理 。 


A 


EBNF 文 法 
| 文法 的 Ecore | 文法 送 去 给 Xtext 生 成 器 处 理 
模型 


3 
Xtext 生 成 器 
模型 的 AST 基 \ | 
于 Ecore 元 模型 
生成 以 下 产物 


| 基于 ANTLR 的 | ER 
Ecore 元 模型 语法 分 析 器 Poo 


图 7-9 Xtext 处 理 文本 性 质 的 文法 规则 过 后 将 生成 大 量 产 物 。 其 中 Ecore 元 模型 抽象 了 文法 模型 使 
用 的 语法 ， 是 众多 制 成 品 里 的 重 中 之 重 


Xtext 还 拥有 各 种 可 以 组 合 使 用 的 代码 生成 器 ， 能 生成 满足 多 种 需求 的 语义 模型 。 本 节 将 再 次 实现 
7.2.2 节 用 ANTLR 实 现 过 的 交易 指令 处 理 DSL 。 这 次 你 会 往 意 到 ， Xtext 全 方位 的 工 文 持 和 它 基 于 
模型 的 开发 方式 ， 大 大 方便 了 我 们 管理 DSL 的 演化 。 我 们 的 实现 历程 将 从 语言 的 定义 开始 ， 使 用 
一 种 基于 EBNF 的 Xtext 文 法 规则 。 


7.4.1 文法 规则 和 大 纲 视图 


Xtext 的 DSL 文 法 定义 沿用 EBNF 形 式 ， 男 外 有 一 些 Xtext 的 附加 功能 点 缀 其 间 。 这 里 不 打算 详细 介 
绍 Xtext 的 文法 规则 定义 ， 这 方面 的 信息 都 可 以 在 Xtext User Guide ( 见 7.6 节 文献 [5]) 里 面 查 到 。 
代码 清单 7.6 用 Xtext 文 法 规则 重新 定义 了 7.2.2 节 的 交易 指令 处 理 DSL 。 


代码 清单 7-6 。 Xtext 文 法 规则 


grammar org.xtext.example.Orders 
with org.eclipse.xtext.common.Terminals @ 重用 默认 的 词法 分 析 器 


让 


generate orders http://www.xtext.org/example/Orders @ 生成 元 模型 


Model : 
(orders += Order)*; ”上 @ 多 值 赋值 


Order : 
line = Line; @ 单 值 赋值 


Line : 
buysell = ('buy' | 'sell') security = Security 
price = Price account = Account; 


Security : 
name = ID; 


Price : 
'@' 
(value = INT) 
| 
('limitprice' '=' (value = INT)) 
’ 
Account : 


'for' value = ID; 


这 上段 代码 与 多 加 前 的 ANTLR 版 本 大 体 相 似 。 其 中 一 处 不 同 点 表现 在 开头 部 分 ， 即 命令 Xtext 生 成 语言 
元 模型 的 部 分 @。 假 如 已 经 有 现成 的 Ecore 元 模型 ， 也 可 以 让 Xtext 将 它 导入 当 疼 前 工作 环境 ， 令 模型 
文法 规则 的 文本 类 过 机 同步 。7.4.2 节 会 进一步 探讨 元 模型 的 内 部 细节 。Xtext 多 许 将 既 有 文法 混入 
当前 正在 定义 的 规则 @， 以 此 实现 文法 的 重用 ， 这 也 是 一 个 非常 有 趣 的 特点 。 
Xtext 根 据 我 们 的 文法 规则 生成 默认 的 分 析 树 (AST) 。AST 生 成 之 后 ， 文 法 里 的 内 联 赋值 成 为 语 
法 分 析 器 生成 的 各 AST 元 素 之 间 的 联系 纽 囊 四、@ 。 
除 文本 性 的 文法 规则 之 外 ，Xtext 还 给 出 一 个 大 纲 视图 来 展现 模型 的 树 形 结构 。 利 用 大 纲 视 图 ， 可 
以 浏览 各 模型 元 素 的 。 图 7-10 显 示 根 据 代 码 清单 7-6 定 义 的 文法 产生 的 大 纲 视 图 。 
区 人 
3 (EE) grammar org,xtext,example,Orders 
EI generate orders 
"号 Model 
三 orders 十 = Order* 
二 Order 
:Eline = Line 
局 -三 Line 
村 去 buysell =(,,) 
:三 SECUrity = Security 
! price = Price 
:三 account = Account 
本- 号 Security 
三 name = ID 
局 -号 Price 
D '@' 
由 -三 | 
= SS Account 
O for 
三 value = ID 
图 7-10 大 纲 视图 展示 模型 的 层级 结构 。 大 纲 视 图 展示 每 一 条 规则 对 应 的 结构 。 视 图 内 的 元 素 可 
以 按 字母 顺序 排列 ， 以 便 查找 ， 选 择 其 中 一 个 元 素 将 打开 相应 的 文本 编辑 器 
图 中 所 见 即 为 模型 的 默认 视图 。 这 个 视图 最 值得 称道 的 特点 在 于 ，Xtext 允 许 定制 视图 的 几乎 每 一 
个 方面 。 我 们 可 以 调整 大 纲 的 结构 ， 可 以 让 用 户 选 择 过 滤 部 分 内 容 ， 可 以 自 定义 上 下 文 沫 单 等 ， 
只 要 禾 盖 默认 实现 即 可 。 大 纲 视图 是 实现 语言 模型 可 视 化 的 其 中 一 件 工 具 ， 与 文法 的 文本 表述 结 
合 起 来 ， 赋 予 DSL 开 发 过 程 更 加 丰富 的 体验 。 
7.4.2 文法 的 元 模型 
在 文本 编辑 器 里 写 好 文法 规则 以 后 ， 让 Xtext 生 成 语言 制品 ， 


型 (Ecore 包 含 EMF 的 核心 抽象 定义 ) 


一 和 


1 人 


于 Xtext 管 理 的 模型 样 


式 。 元 模型 用 Ecore 元 类 型 


图 7-11 展 示 了 Xtext 文 法 示例 


所 对 应 的 元 模型 。 


。 我们 以 文本 形式 定义 的 文法 ， 
(metatypes) 来 描 


经 过 元 模型 的 圣 现 为 
述 文法 规则 的 各 个 个 部 分 


图 7-11 交易 指令 处 理 DSL 的 元 模型 。 文 法 中 的 每 条 产生 式 规则 都 返回 一 个 Ecore 模 型 元 素 ， 如 
EString 和 EInt 


注意 ， 在 这 个 元 模型 里 用 了 EString 、EInt 等 元 类 型 来 表示 文法 的 AST ， 它 们 都 是 Ecore 提 供 的 
核心 抽象 。 


除了 元 模型 ， 生 成 器 同时 还 生成 用 来 实例 化 元 模型 的 ANTLR 分 析 器 。 元 模型 控制 Xtext 提 供 的 全 套 
工具 。 如 需 进一步 了 解 元 模型 的 内 部 细节 ， 请 参考 Xtext User Guide (参考 7.6 闻 文献 [5]) 


所 有 必 慨 的 制品 者 生成 元 守 毕 ， 连 同 生 成 的 IDE 插 件 也 都 安装 好 之 后 ， 就 可 以 在 编辑 器 里 编写 DSL 脚 
本 ， 享 受 语法 高 、 代 码 提示 、 约束 检查 等 智能 功能 。Xtext 在 它 的 信息 库 中 建立 了 DSL 语 言 完整 
的 EMF 模 型 ， 天 而 可 以 在 脚本 的 呈现 方式 上 增加 智能 化 的 手段 。 图 7-12 展 示 了 DSL 示 例 的 编辑 场 


= 
是“ 


buy ibm 8 


图 7-12 Xtext 元 模型 提供 了 一 个 专 为 编写 DSL 而 设 的 优秀 编辑 器 。 图 中 代码 补 全 功能 提示 有 效 的 
输入 候选 内 容 。 从 图 中 还 可 以 看 到 另 一 种 便利 功能 一 一 语法 高 亮 功 能 


现在 ， 我 们 已 经 将 语言 答 入 了 Xtext 信 息 库 中 。Xtext 为 我 们 提供 操作 DSL 语 法 的 手段 和 界面 ， 并 
自动 更 新 其 Ecore 模 型 。 它 还 给 了 我 们 一 棵 默认 的 AST 树 ， 以 及 生成 这 棵 AST 的 语法 分 析 器 。 但 对 
于 一 种 实用 的 DSL 来 说 ， 这 些 还 不 够 ， 我 们 还 需要 一 个 更 加 精细 、 完 善 的 抽象 一 语义 模型 。 
DSL 设 计 者 希望 通过 自 定 义 的 代码 开发 来 产生 语义 模型 ， 同 时 希望 这 部 分 代码 能 与 语言 的 核心 模 
型 分 离 。Xtext 的 代码 生成 模板 提供 了 这 样 的 能 力 ， 可 以 妥善 地 将 生成 的 语义 模型 与 文法 规则 集 成 
在 一 起 。 那 么 ， 下 面 就 让 我 们 继续 探索 Xtext 这 方面 的 功能 ， 看 看 它 的 代码 生成 器 要 用 哪些 工具 来 
为 语义 模型 生成 代码 。 


7.4.3 为 语义 模型 生成 代码 


文法 规则 和 元 模型 都 准备 就 绪 ， 可 以 编写 代码 生成 器 了 “。 代 码 生成 器 将 处 理 我 们 到 目前 为 止 所 建 
立 的 模型 ， 并 生成 语义 模型 。 有 时 ， 我 会 希望 从 一 套 文 法 生成 多 个 语义 模型 。 以 交易 指令 处 理 


DSL 为 例 ， 除 了 生成 一 个 根据 用 户 输入 创建 交易 指令 对 象 集合 的 Java 类 ， 我 们 可 能 还 希望 生成 一 个 


JSON (JavaScript Serialized Object Notation) 对 象 集合 ， < 向 数据 库 传 递交 易 指 令 数 据 。 理 想 状 


用 
态 下 ， 这 两 个 语义 模型 都 不 与 核心 的 文法 规则 发 生 耦 合 。 图 7-13 展 示 了 整体 架构 。 


[这 此 


上 


旧 令 处 理 DSL 
的 EBNF 文 法 


(语义 模型 1) 一 组 Java 对 象 ” (语义 模型 2) 一 组 JSON 对 象 
图 7-13 ”语义 模型 应 与 文法 规则 分 离 。 一 套 文法 规则 可 以 对 应 多 个 语义 模型 
那么 ， 我 们 就 用 Xtext 提 供 的 Xpand 模 板 来 生成 Java 代 码 。 


1. 用 Xpand 模 板 生成 代码 


Xpand 模 板 饥 历 由 文法 规则 形成 的 AST， 然 后 生成 代码 。 模 板 需要 的 第 一 个 输入 是 元 模型 ， 我 们 通 
过 <IMPORT orders» 提供 给 它 。 下 面 是 充当 入 口 的 主 模板 ， 它 负责 派发 到 其 他 子 模板 : 


«IMPORT orders» 
«DEFINE main FOR Model» 

«EXPAND Orders::orders FOR this» 
«ENDDEFINE» 


在 这 段 代码 中 ，orders 是 需要 导入 的 元 模型 名 称 。 每 个 模板 都 有 一 个 名 称 和 一 个 决定 模板 调用 
时 机 的 元 类 型 。 本 例 中 模板 的 名 称 是 main ， 元 类 型 是 Model (Model 是 我 们 在 文法 规则 中 定义 


的 一 个 文法 元 素 ，Xtext 将 它 表示 为 Ecore 元 模型 E 常 简 


的 一 个 元 类 型 ) 。 这 个 main 模板 非常 简单 ， 它 
的 功能 仅仅 是 在 识别 到 Model 符号 时 ， 派 发 到 0rders: :orders 子 模板 。 代 码 清单 7-7 是 
orders: :orders 模板 的 定义 。 


代码 清单 7-7 ”生成 orders 语义 模型 的 模版 


«IMPORT orders> ”导入 元 模型 


«DEFINE orders FOR Model» 


«FILE "OrderProcessor.java"» ”生成 Java 文 件 
import java.util.*; 
import org.xtext.example.ClientOrder; 定义 Java 类 


public class OrderProcessor { 待 生 成 的 类 
private List<Clientorder> cos = new ArrayList<CclientOrder>(); 


public List<Clientorder> getOorders() { 
«EXPAND order FOREACH this.orders> 将 被 蔡 换 的 模板 
return Collections.unmodifiableList(cos); 


} 
+ 


«ENDFILE» 
«ENDDEFINE>» 


«DEFINE order FOR Order» 
cos.add(new ClientOrder("«this.]line.buysell»", 
"«this.1line.security.name»", 
«this,.1line.price.value», 
"«this.1line.account.value»")); 
«ENDDEFINE» 


3 


当 文 法 被 归 约 到 起 始 符号 ( 即 Model ) ,语言 识别 结束 时 ， 代 码 清单 7-7 中 定义 的 代码 也 在 模板 推 


动 下 生成 出 来 。 表 7-4 就 代码 生成 模板 的 一 部 分 特性 给 出 了 详细 解释 。 
表 7-4 Xtext 的 代码 生成 模版 


特性 解释 


可 以 生成 任意 的 代 和 码 。 例 中 生成 了 一 | 这 个 美 只 对 外 提供 一 个 方法 ， 返 回 从 DSL 肢 本 解析 所 得 的 全 部 交易 指令 的 集合 。 集 合 的 元 
个 Java 类 素 是 单独 定义 的 POJO 对 象 (clientorder ) ， 与 文法 无 关 


我 们 可 以 在 产生 式 规则 内 访问 文法 模型 的 元 素 ， 并 使 用 模板 替换 这 些 内 联 元 素 的 文本 。 例 


I 了 对 order 模板 00 0 0 被 实际 的 单价 


模板 一 切 就 绪 ， 我 们 通过 项 目的 上 下 文 菜 单 再 次 运行 Xtext 的 生成 器 。 
2. 执行 DSL 脚 本 
假设 我 们 要 执行 下 列 DSL 脚 本 : 
buy ibm @ 100 for nomura sell google @ limitprice = 200 for chase 
这 段 脚本 经 过 Xtext 的 处 理 ， 最 终生 成 代码 清单 7-8 所 示 的 OrderProcessor.java 文 件 。 
代码 清单 7-8 ”由 代码 清单 7-7 的 模版 生成 的 类 


import java.util.*; 
import org.xtext.example.CclientOrder; 
public class OrderProcessor { 
private List<Clientorder> cos = new ArrayList<ClientOrder>(); 


public List<Clientorder> getOrders() { 
cos.add(new ClientOorder("buy", "ibm", 100, "nomura")) 
cos.add(new ClientOrder("sell", "google", 200, "chase")) 
return Collections.unmodifiableList(cos); 
} 
} 


按照 Xtext 的 做 法 ， 定 义 文法 规则 和 构建 语义 模型 这 两 个 方面 可 以 充分 分 离 。 文 法 规则 的 定义 由 管 
能 文本 编 名 器 负责 ， 用 可 定制 的 大 纲 视 图 作为 补充 。 语 义 模 型 的 实现 则 在 各 种 代码 生成 器 的 控制 
之 下 ， 通 过 元 模型 与 语法 分 析 器 联系 在 一 起 。 


最 后 谈 谈 开发 外 部 DSL 时 ， 像 Xtext 这 样 文本 与 可 视 化 环境 相 混合 的 方式 有 哪些 优 缺 点 。 
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第 8 章 用 Scala 语 法 分 析 器 组 合子 设计 外 部 DSL 


本 章 内 容 


。 什 么 是 分 析 器 组 合子 

。 Scala 的 分 析 器 组 合子 库 
。 Packrat 分 析 器 的 用 法 
。 用 Scala 提 供 的 各 种 分 析 器 组 合子 来 设计 外 部 DSL 


带 着 我 们 从 第 7 章 学 到 的 关于 外 部 DSL 实 现 的 基础 知识 ， 本 章 把 话题 直接 转 到 分 析 器 组 合子 

(parser combinator) 。 分 析 器 组 合子 是 函数 式 编程 最 为 精彩 的 应 用 之 一 。 这 些 组 合子 构成 了 一 种 
用 来 设计 外 部 DSL 的 内 部 DSL， 也 就 是 说 ， 可 以 不 必 像 别 的 外 部 DSL 实现 技术 那样 ， 要 求 我 们 自行 
建立 一 套 语言 处 理 设施 。 以 第 7 章 处 理 客户 交易 指令 的 外 部 DSL 为 例 ， 我 们 在 设计 的 时 候 用 到 了 
ANTLR 语 法 分 析 器 生成 器 。 设 计 好 的 DSL 语 法 要 通过 ANTLR 来 生成 语法 分 析 器 。 换 言 之 ， 我 们 的 
DSL 需 要 依赖 外 部 工具 来 提供 必要 的 语言 实现 基础 设施 。 而 当 我 们 使 用 分 析 器 组 合子 的 时 候 ， 完 
全 不 需要 越 出 宿主 语言 半 步 。 实 现 因 此 变 得 简洁 、 有 表现 力 ， 而 且 完 全 摆脱 了 一 切 外 部 依赖 。 


我 们 先 从 什么 是 分 析 器 组 合子 说 起 ， 再 谈 到 Scala 在 其 核心 语言 基础 上 实现 的 分 析 器 组 合子 库 。 随 
后 进一步 详尽 地 说 明 Scala 组 合子 库 的 各 种 细节 ， 重 点 突出 那些 令 其 成 为 DSL 设 计 标杆 的 特性 。 在 
这 之 后 ， 我 们 将 运用 Scala 的 分 析 器 组 合子 来 设计 两 个 外 部 DSL。 最 后 介绍 packrat 分 析 器 ， 这 种 分 
析 器 能 实现 普通 递归 下 降 分 析 器 无 法 实现 的 文法 类 型 。 图 8-1 是 本 章 的 路 线 图 ， 我 们 就 照 着 图 上 的 
指引 ， 循 序 渐进 地 探索 用 Scala 的 分 析 器 组 合子 来 设计 DSL 的 世界 。 
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。 库 中 的 组 合子 

。 Monad 化 的 组 合 

。 Packrat 分 析 器 


图 8-1 本章 路 线 图 


学 习 完 本 章 内 容 ， 


扩展 的 外 部 DSL 。 
8.1 分 析 器 组 合子 


在 第 7 章 的 时 候 ， 我 们 把 语法 2 分 析 器 定义 成 一 个 作 


符号 流 


哪 种 情况 ， 分 析 器 


如 有 果 分 析 器 返 


一 个 针对 packrat 分 
析 器 的 研究 案例 


你 将 牢固 地 掌握 如 何 使 用 函数 式 编程 技术 ， 


特别 是 分 析 器 组 合子 技术 来 实现 可 


于 输入 流 ， 并 将 词法 单元 集合 的 引擎 。 它 能 在 
' 识 别 分 析 器 认可 的 有 效 语言 成 分 ， 或 者 在 遇 到 无 效 符号 的 时 候 立即 中 止 当前 输入 。 无 论 


都 返回 一 个 (或 成 功 或 失败 的 ) 结果 ， 同 时 返回 尚未 处 理 的 剩余 输入 流 。 


回 成 功 的 结果 ， 我 们 可 以 将 剩余 输 入 流 送 入 忆 一 个 分 析 器 继续 处 理 。 如 果 返 回 失 败 


结果 ， 我 们 可 以 回 退 到 输入 流 的 开头 位 置 ， 莹 试用 另 一 个 分 析 器 来 处 理 它 。 鉴 于 分 析 器 自身 的 工 


\， 可 以 将 多 


组 合 起 来 ， 


共同 处 理 输入 流 的 情形 。 


词法 单元 输入 流 


多 个 分 析 器 按 不 同方 式 串 联 起 来 ， 实 现 对 输入 流 的 完整 分 $ 析 。 图 8-2 描 绘 了 将 多 个 


(分 析 结 果 1， 分 析 结 果 2) 


se 


seq[ParseResultl ，ParseResult2] 


-个 按 顺序 匹配 前 
后 两 部 分 的 新 分 析 器 


图 8-2 ”串联 起 来 的 分 析 器 。 分 析 器 1 处 理 一 部 分 输入 流 ， 分 析 器 2 处 理 分 析 器 1 余下 的 部 分 。 这 两 
个 分 析 器 组 合 而 成 的 分 析 器 ， 其 返回 结果 也 是 原来 两 个 返回 结 
2 都 成 功 匹 配 其 输入 时 ， 组 合 后 的 分 析 器 才 返 回 成 功 结果 


吉 果 的 组 合 。 只 有 当 分 析 器 1 和 分 析 器 


本 下 将 建立 一 种 分 析 器 的 使 用 思路 ， 即 分 析 器 是 对 它 所 识别 的 语言 的 一 种 函数 式 抽象 。 由 于 分 析 
器 是 其 输入 的 函数 ， 所 以 可 以 一 个 一 个 地 组 合成 别 的 分 析 器 ， 而 且 每 次 组 合 都 是 DSL 语 法 的 一 次 
扩 增 。 对 于 能 完成 这 样 的 组 合 的 高 阶 画 数 ， 我 们 赋予 它 一 个 正式 的 名 称 : 分 析 器 组 合子 。 


8.1.1 什么 是 分 析 器 组 合子 


我 们 以 画 数 式 的 思路 来 考虑 分 析 器 的 组 合 问题 在 函数 式 编程 中 ， 分 析 器 是 一 个 接受 输入 并 产 4 
结果 的 函数 。 分 析 器 组 合子 允许 我 们 单纯 以 组 合 的 方式 ， 将 高 阶 画 数 《又 叫做 组 合子 ) 搭建 成 各 
式 文法 结构 ， 如 有 顺序、 重复、 可 选项 、 分 支 选择 等 。 如 果 宿主 语言 支持 中 缀 运算 符 写法 ， 那 么 用 
分 析 器 组 合子 写 出 来 的 文法 规则 ， 看 起 来 就 像 EBNE 产 生 式 的 样子 。 


用 组 合子 来 分 析 语 法 ， 最 大 的 好 处 在 于 能 够 提高 组 合 性 ;少数 基本 的 分 析 器 经 过 函数 式 的 组 合 ， 
即 可 构成 更 大 更 复杂 的 分 析 器 (本 书 附 录 人 A 阐述 了 组 合 性 特质 的 优点 ) 。 组 合子 的 编排 就 像 搭 积 
木 ， 我 们 从 小 块 的 材料 开始 ， 逐 渐 搭 出 高 阶 的 结构 。 图 8-2 就 是 一 个 顺序 组 合子 在 履行 它 的 搭建 


作 。 


HT 


把 搭 积木 的 思路 推广 到 DSL 设 计 上 ， 我 们 先 用 分 析 器 组 合子 组 合 出 一 些小 的 语言 片段 ， 作为 对 
DSL 语 法 局部 的 建 模 ， 了 由 这 些 片 段 拼 出 完整 的 DSL 结 构 。 图 8-2 的 顺序 组 合 

的 一 种 ， 图 上 它 正 在 将 两 个 DSL 语 法 分 析 器 | 顺序 地 连接 起 来 。 任 何 组 合子 库 都 
组 合子 ， 就 像 一 套 积 木 里 有 不 同 的 形状 。 我 们 从 几 个 常用 的 组 合子 说 起 ， 看 它们 怎样 处 理 输入 流 
和 识别 语言 文法 ， 详 见 表 8-1。 


表 8-1 常用 的 分 析 器 组 合子 
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组 合子 组 合 方式 
Dm 。 若 分 析 器 P 和 Q 以 顺序 组 合子 相连 接 ， 则 当 出 现 以 下 情况 时 ， 认 为 分 析 是 成 
顺序 。 了 成 功 处 理 一 部 分 答 入流; 
。 Q 跟 在 P 之 后 处 理 Pp 末 处 吾 的 剩余 输入 ; 
于 构造 砍 代 结构 的 分 析 器 组 合子 。 若 分 析 器 P 和 Q 以 替代 组 合子 相连 接 ， 则 当 P 或 Q 其 中 之 一 在 以 下 情况 下 成 功 
寸 ， 认 为 分 析 是 成 功 的 
替代 。P 先 处 理 输入 流 。 若 P 成 功 ， 则 分 析 是 成 功 的 ; 
。 若 P 失 败 ， 则 输入 流 回 退 到 P 开 始 处 理 之 前 的 位 置 ， 换 由 Q 来 处 理 同一 输入 流 ; 
。 若 Q 成 功 ， 则 分 析 是 成 功 的 ;否则 分 析 失 败 ; 
函数 施 这 个 组 合子 在 分 析 器 上 应 个 函数 ， 结 果 产 生 一 个 新 的 分 析 器 
当 重 复 组 合子 作 于 分 析 器 P 时 ， 返 回忆 一 个 分 析 器 ， 其 分 析 对 象 是 P 的 分 析 对 象 的 一 次 或 多 次 重复 。 有 时 候 ， 
重复 重复 组 合子 还 允许 重复 模式 与 分 隔 符 交 错 的 情况 
倍 如- P 可 分 析 字 符 串 abc ， 对 P 应 用 重复 组 合子 后 产生 的 分 析 器 ， 将 能 够 分 析 abc 的 重复 "abcacabc" .…， 或 者 允 
许 模 式 abc 与 空格 交错 出 现 ， 即 abc abc abc . 


仅仅 知道 这 几 个 基本 的 组 合子 ， 还 不 够 用 于 讨论 DSL 的 具体 实现 。 我 们 要 先 学 习 怎 样 用 分 析 器 组 
合子 来 设计 外 部 DSL 。 


8.1.2 按照 分 析 器 组 合子 的 方式 设计 DSL 
第 7 章 我 们 在 设计 外 部 DSL 时 ， 自 行 建立 了 一 套 语言 处 理 设施 。 由 于 手工 实现 分 析 器 工作 量 巨 大 叉 


容易 出 错 ， 代 码 还 常常 光 了 胀 到 失控 的 地 步 所 以 我 们 决定 借助 ANTLR 和 Xtext 等 外 部 框架 。 在 外 部 
框架 的 参与 下 ， 会 形成 如 图 8-3 所 示 的 实现 架构 。 


Pi 
EBNF 规 则 一 一 | 分 析 器 生成 器 定制 动作 


(定义 DSL 的 语法 ) 


外 来 语法 
DSL 脚 本 

分 析 并 生成 

- 棵 分 析 树 


与 核心 应 用 集成 


图 8-3 ”使 用 ANTLR 等 外 部 分 析 器 生成 器 来 设计 外 部 DSL 的 实现 架构 。 生 成 器 产生 分 析 器 ， 分 析 
器 分 析 DSL 脚 本 并 生成 应 用 的 语义 模型 


图 上 的 架构 并 不 是 一 个 坏 的 架构 ， 相 反 ， 它 是 当前 使 用 最 为 普遍 的 外 部 DSL 设 计 范 式 。 自 从 
LEX、YACC 那 一 代 语 言 处 理工 具 走 出 AT&T 实 验 室 以 来 ， 开 发 者 们 一 直 在 沿用 相同 的 架构 风格 。 


虽然 这 个 架构 久 经 考验 ， 但 并 不 意味 着 我 们 不 能 通过 探索 找到 更 新 更 好 的 DSL 实 现 方 式 。 图 8-3 的 
架构 有 一 个 明显 的 缺点 ， 就 是 这 样 实现 出 来 的 DSL 具 有 外 部 依赖 。 分 析 器 生成 器 作为 一 个 外 部 实 
体 (如 图 中 所 见 ) ， 我 们 需要 用 它 不 同 于 宿主 语言 的 语法 来 定义 DSL 的 EBNF 规 则 (请 回忆 一 下 第 
7 章 的 EBNF 知 识 ) ， 这 就 使 得 学 习 曲 线 更 为 陡峭 。 生 成 器 生成 的 分 析 器 代码 结构 是 静态 的 ， 完 全 
依赖 于 生成 器 内 部 的 实现 ， 用 户 没 有 多 少 调整 定制 的 余地 。 


用 分 析 器 组 合子 来 设计 DSL 是 一 种 完全 不 同 的 体验 。 我 们 可 以 沉浸 在 宿主 语言 的 抽象 氛围 里 定义 
文法 规则 用 高 阶 范 数 定义 DSL 的 语法 ， 用 库 里 预备 的 组 合子 添加 定制 动作 。 具 体 的 细节 我 们 会 
在 后 续 章节 内 详细 解说 。 从 图 8-4 可 以 和 括 见 宿主 语言 内 生 的 分 析 器 组 合子 对 简化 实现 架构 的 成 效 。 


用 宿主 语言 来 定义 


/NN 


EBNF 规 则 定制 动作 
(定义 DSL 的 语法 ) 
宿主 语言 的 
DSL 脚 本 基础 设施 
与 核心 应 用 程序 集成 
图 8-4 ”使 用 分 析 器 组 合子 来 设计 外 部 DSL 的 实现 架构 。 定 义 文法 规则 和 定制 动作 时 ， 完 全 不 需要 
越 出 宿主 语言 的 设施 范围 之 外 
在 新 的 架构 下 ， DSL 个 存在 对 外 部 框 采 的 依赖 。 仅 有 的 先决 条 件 ， 是 宿主 语言 必须 提供 一 套 分 析 
器 组 合子 库 。 相 对 而 言 ， 分 析 器 组 合子 是 DSL 实 现 领域 的 新 成 员 。 不 少 基 食品 如 Haskell 、 
Scala 和 Newspeak 痢 在 其 核心 语言 上 以 库 的 形式 提供 分 析 器 组 合子 功能 。 你 将 在 本 章 的 学 习 过 程 
' 发 现 ， 分 析 器 组 合子 蕴含 了 对 画 数 式 编程 思维 精彩 而 新 颖 的 运用 ,我 们 要 揭 开 它 是 怎么 做 到 设 
计 DSL 时 简洁 而 不 失 表 现 力 的 。 
定义 ”Newspeak 是 由 Gilad Bracha 设 计 的 一 种 沿袭 Self 和 Smalltalk 语 言传 统 的 编程 语言 。 关 于 这 
种 语言 的 详情 请 参阅 http://newspeaklanguage.org 
下 一 节 ， 我 们 将 认识 Scala 的 分 析 器 组 合子 库 ， 这 个 库 以 纯 函 数 式 的 方式 提供 强大 的 外 部 DSL 设 计 


能 力 。 Si 
的 成 分 连接 起 来 ， 赋 予 它们 语义 。 


8.2 Scala 的 分 析 器 组 合子 库 


法 


的 一 个 小 成 分 的 建 模 ， 


组 合子 像 胶水 一 样 把 所 有 


kx 


Scala 在 其 核心 语言 之 上 实现 了 分 析 器 组 合子 库 。 这 个 库 随 Scala 语 言 一 起 发 布 ， 包 的 位 置 在 
scala.,util.parsing。 以 库 的 形式 实现 分 析 器 组 合子 ， 便 于 在 不 影响 核心 语言 的 前 提 下 进行 
扩展 。 本 节 将 通过 各 种 DSL 片 段 来 学 习 Scala 库 的 使 用 技巧 和 惯用 法 。API 方 面 的 细节 可 以 参考 8.6 
方 文献 [1] 和 文献 [2]， 或 者 直接 3 ee (不 幸 的 是 ， 目 前 还 没有 详细 介绍 Scala 分 析 器 
组 合子 的 出 版 物 ， 源 代码 是 腿 下 最 好 的 参考 资料 。 


8.2.1 分 析 器 组 合子 库 中 的 基本 抽象 


立 了 如 图 8-5 所 示 的 模型 。 


-个 输入 为 Input 、 输 出 为 泛 型 
数据 类 型 ParseResult [T] 的 函数 
] 
abstract class ParSser [+T] extends (Input => ParseResult[T]) 
L | | 
Parsers tra t 内 部 
含有 通用 的 输入 读 取 器 


trait Parsers { 
type Elem 
type Input = Reader[Elem] 
A 

} 


图 8-5 ”Scala 库 将 分 析 器 建 模 为 一 个 画 数 


ParseResult 是 对 分 析 器 产生 的 结果 的 抽象 ， 结 果 可 以 是 成 功 也 可 以 是 失败 。 此 外 
ParseResult 还 跟踪 着 尚未 被 当前 分 析 器 处 理 的 下 一 输入 。Scala 库 建 模 的 ParseResult 


分 析 器 抽象 


通过 上 一 节 的 讨论 ， 我 们 知道 分 析 器 是 一 个 将 输入 流 变换 为 分 析 结果 的 画 数 。Scala 库 根据 这 个 概 


上 月. 
征 


个 泛 型 抽象 类 ，Success 和 Failure 是 它 的 两 个 特 化 实现 。 下 面 的 代码 清单 给 出 了 Scala 对 


ParseResult[T] 类 型 的 定义 ， 以 及 该 类 型 的 特 化 实现 Success 和 Failure 。 


代码 清单 8-1 ”Scala 对 分 析 结 果 的 建 模 


trait Parsers { 
sealed abstract class ParseResult[+T] { 
//.. 
val next: Input @ ParseResult 跟 踪 着 下 一 输入 


case class Success[+T](result: T, override val next: Input) 
extends ParseResult[T] { @ 分 析 成 功 
//.. implementation 


Sealed abstract class NoSuccess( 
val msg: String, override val next: Input) 
extends ParseResult[Nothing] { 和 @ 针对 分 析 不 成 功 情况 的 基 类 
/fs 


case class Failurel( 
override val msg: String, override val next: Input) 
extends NoSuccess(msg, next) { @ 失败 => 回溯 并 重 试 
A sa 


case class Error( 
override val msg: String, override val next: Input) 
extends NoSuccess(msg, next) { @ 不 可 恢复 的 错误 ， 不 所 
//.. 


} 
//.. 


测 


< 


ParseResult 对 分 析 器 产生 的 结果 的 数据 类 型 做 了 泛 型 化 处 理 。 当 结果 为 Success @ 时 ， 


得 到 类 型 为 T 的 结果 。 当 结果 为 Failure 全 时 ， 我 们 得 到 一 条 失败 消息 。Failure 分 为 可 恢复 错 


我 们 


误 (nonfatal) 和 不 可 恢复 错误 (fatal) 。 对 于 可 恢复 的 Failure @， 我 们 可 以 回 溯 并 尝试 其 他 备 


选 的 分 析 器 。 对 于 不 可 恢复 的 Error @， 不 存在 任何 回溯 ,分 析 过 程 终止 。 不 管 发 生 哪 种 信 


(Success 或 Failure ) ,结果 都 会 说 明 当 前 分 析 过 程 处 理 了 多 少 输入 ， 分 析 器 链条 中 的 下 
个 分 析 器 应 该 从 输入 流 的 哪个 位 置 开始 接手 @ 。 
本 章 后 续 的 外 部 DSL 例 子 会 继续 演示 替代 和 可 漳 的 具体 做 法 。 如 何 处 理 分 析 中 出 现 的 不 成 功 的 情 


况 ， 这 是 我 们 设计 DSL 时 必须 仔细 考虑 的 一 个 要 点 。 例 如 有 时 候 替 代 安 排 得 太 多 ， 可 能 导致 性 人 
衰退 ， 而 且 有 时 候 客 观 条 件 不 允许 我 们 设计 带 回 亢 的 分 析 器 。 


巴 
已 


品 你 想 知 道 分 析 器 组 合子 库 里 的 这 些 类 都 在 DSL 实 现 中 扮演 什么 角色 吗 ? 


我 们 建 模 时 每 一 段 DSL 都 要 有 一 个 配套 的 分 析 器 ， 由 它 负责 检查 语法 的 有 效 性 。 只 有 当 用 户 提 
供 的 脚本 语法 正确 时 ，DSL 处 理 过 程 才 会 继续 下 去 。 如 果 语 法 是 有 效 的 ， 分 析 器 返回 Success 
; 否则 返回 Error 或 Failure。 对 于 Failure 的 情况 ， 分 析 器 可 以 进行 回溯 ， 淮 试用 别 的 夫 
代 规 则 来 分 析 。 


现在 我 们 知道 了 分 析 器 和 ParseResult 的 各 种 实现 ， 但 那么 多 分 析 器 是 怎么 串联 在 一 起 ， 完 成 
整个 DSL 的 分 析 工 作 的 呢 ? 这 正 是 组 合子 的 作用 。 所 以 ， 接 下 来 我 们 要 介绍 Scala 提 供 的 一 些 组 合 
于 ， 学 习 怎 样 高 效率 地 利用 这 些 组 合子 把 我 们 设计 的 分 析 器 一 个 个 连接 起 来 。 


8.2.2 把 分 析 器 连接 起 来 的 组 合子 


Scala 分 析 器 组 合子 库 含 有 一 整套 用 来 连接 各 种 分 析 器 的 组 合子 。 我 们 在 第 7 章 用 ANTLR 和 Xtext 来 
设计 外 部 DSL 的 时 候 ， 利 用 分 析 器 生成 器 技术 同样 可 以 写 出 近似 EBNF 形 式 的 文法 。 组 合子 技术 与 
之 相 比 ， 不 需要 借助 宿主 语言 以 外 的 任何 外 部 环境 。 我 们 在 Scala 语 言 范 围 内 ， 利 用 其 高 阶 函 数 特 
性 即 可 定义 出 类 似 EBNF 的 文法 。 假 如 把 DSL 语法 看 作 是 众多 小 片段 的 集合 ， 那 么 组 合子 的 作用 就 
是 把 每 个 片段 对 应 的 分 析 器 拼接 到 一 起 ， 构 成 一 个 大 的 、 针 对 DSL 整 体 的 分 析 器 。 


学 习 Scala 组 合子 的 最 佳 方式 自然 是 通过 真实 的 例子 。 我 们 继续 沿用 前 面 章 广 用 过 的 领域 示例 ， 设 
计 一 种 外 部 DSL 来 处 理 用 户 通过 一 系列 输入 提供 的 客户 交易 指令 。 我 们 需要 生成 的 抽象 如 图 8-6 所 
示 “。 


< 


交易 指令 


图 8-6 ”以 各 种 输入 项 目 作为 属性 来 生成 交易 指令 


大 致 学 握 分 析 器 组 合子 的 能 力 之 后 ， 我 们 现在 多 了 一 种 可 行 的 选择 。 排 除了 通过 外 部 分 析 器 生成 


实现 对 DSL 的 语法 分 析 。 


器 (如 ANTLR) 的 实现 方式 ， 我 们 还 可 以 考虑 用 Scala 提 供 的 组 合子 把 一 系列 较 小 的 分 析 器 连接 起 


分 析 链 条 中 的 每 一 个 小 分 析 器 从 负责 分 析 一 小 块 固定 的 DSL 结 构 ， 然 后 在 组 合子 的 协调 下 ， 将 输 


人 人 分析 器 。 经 过 与 客户 的 反复 商讨 和 和 迭代 开发 ， 我 们 确定 了 客 布 望 的 语法 ， 
得 至 


D 


package trading.dsl 
import scala.util.parsing.combinator.syntactical._ 


object OrderDs] extends StandardTokenParsers { 


最 
可 代码 清单 的 文法 定义 。 这 段 代 码 使 用 了 我 们 刚刚 介绍 过 的 Scala 分 析 器 组 合子 来 表达 
SL 语 法 。 


代码 清单 8-2 ”用 Scala 分 析 器 组 合子 设计 外 部 DSL 的 示例 


lexical.reserved += 
("to", "buy", "sell", "min", "max", "for", "account", "shares", "at") 
lexical.delimiters += ("(", ")", ",") @ 词法 4 分 隔 符 和 保留 字 


lazy val order = 
items ~ account_spec 外 顺序 组 合子 (~) 


lazy val items = 
"(" ~> replsep(line_item,",") <~")" @ 重复 组 合子 ， 带 分 隔 符 


作 


lazy val line_item = 
security_spec ~ buy_sell ~ price_spec 


lazy val buy_sell = 
to" a ("buy" | "sell1") @ 替代 组 合子 (|) 


lazy val security_spec = 
numericLit ~ (ident <~ "shares") 


lazy val price_spec = 
"at" ~> (min_max?) ~ numericLit 


lazy val min_max = 
Wd od | 相生 A 关 0 


lazy val account_spec = 
"for" ~> "account" ~> stringLit 


用 


看 的 文法 定义 可 以 成 功 分 析 下 面 的 DSL 片 段 : 


(100 IBM shares to buy at max 45, 40 Sun shares to sell 


at min 24, 25 CISCO shares to buy at max 56) 
for trading account "A1234" 


避 辟 掌 吧 ! 刚刚 我 们 用 分 析 器 组 合子 库 设 计 了 第 一 个 DSL。 稍 后 我 们 会 对 它 进行 一 些 再 加 工 ， 让 


现 


一 条 文法 规则 的 具体 分 析 过 程 了 。 


正 


输出 反映 领域 抽象 的 语义 模型 。 
在 我 们 知道 了 文法 写 出 来 是 什么 样子 ， 也 知道 了 它 能 处 理 什么 样 的 语言 ， 下 面 可 以 着 手 探究 每 


式 开 始 之 前 ， 我 们 需要 提 一 提出 现 于 文法 规则 开头 的 那 组 词法 分 隔 符 (lexical delimiter) @， 这 
列表 里 的 字符 在 输入 流 中 起 划分 词法 单元 的 作用 。 另 外 我 们 还 定义 了 一 组 准备 用 在 语言 里 的 保 


字 ， 即 代码 清单 8-2 中 的 lexical.reserved 列表 。 本 节余 下 的 部 分 会 对 Scala 库 中 提供 的 组 合 


子 予以 
发 行 包 


透彻 的 解说 ， 教 会 你 月 
' 的 源 代码 是 最 完整 的 资料 来 源 。 


自 


它们 来 


1. 每 一 条 文法 规则 都 是 一 个 画 数 


文法 规 则 对 领 ] 
。 规则 的 主 


相同 的 EBNF 
条 规则 返 


全 
三 
和 E 
2 
2 


本 部 分 


或 概念 全 :进行 建 模 。 规则 要 有 合适 


搭建 


[ 口 ] 


区 式 。 


一 个 Parser ， 


个 分 析 器 
, 自 一 


构成 的 ， 
前 我 们 假定 


采用 EBNF 


# 式 记述 ， 


所 有 


体 


过 定制 


1 


数 返 


0 1 


门 编 


i 写 文 法 


二 


映 规 见 
作用 ， 


人 员 传 递 


弟 易 
7 ] 


2. 顺 序 组 合子 


建 模 的 领域 概念 
是 我 们 和 领域 专家 一 起 
理解 的 信 


规则 ， 


那么 依次 使 用 所 
的 规则 都 返 
可 具体 类 型 的 分 析 器 。 


务必 记 住 
在 用 分 析 器 2 


,的 语 | 


我 们 先前 


尺 表 画 数 体 的 返 


。 如 果 要 查阅 Scala 


合子 的 细节 信 ， 


天 的 命名 ， 


Du 


Scala 


这 样 才能 正确 传达 其 模型 代表 的 领域 概 


在 ANTLR 


定义 上 


的 也 


上 下 文 无 关 文法 时 ， 


回 值 。 如 果 画 数 体 是 


通过 组 合 


FE 接 起 


可 的 名 


合 于 之 后 得 到 的 最 终结 采 ， 


口 


才 契 规则 最 后 


可 一 个 Parse 


条 DSL 设 计 的 黄金 守 
合子 设计 外 部 DSL 的 过 程 中 


等 到 第 8.3.4 小 节 我 们 再 介 


r [Any] ， 


则 : IE 


地 命名 文法 规则 ， 


审议 的 赁 所 


自 。 


/DA 


Jp 


ov 一 
] “~ 符号 


Scala 语 言 


ty ”来 命 


1 人 23 二 


Scala 介 齐 
上 时， 语句 看 
直观 。 


IE 


云 算 符 的 
上 去 如 同 按 EBNF 


示 顺 序 组 合 ] 


下 8- 


"挑选 一 处 引 


。 我们 可 以 在 代码 清 
名 , 但 它 其 实 只 是 Parsers[T] 类 中 定义 的 


书写 形式 ， 因 此 a ~ b 其 实 等 同 于 a.~(b)。 
区 式 书写 的 样式 。 另 外 ， 


它们 叙述 简练 、 含义 丰富 ， 而 且 和 铺 


表单 8-2 
个 普通 


的 位 置 @ 技 到 已 
方法 


。 简便 起 见 ， 


顺序 组 合子 写 


的 多 
的 Parser 


绍 怎样 在 规则 


让 名 字 反 
文法 规则 起 着 规划 蓝 
BE 够 恰当 地 向 领域 


图 的 


成 中 组 形式 


言 的 类 型 推断 特性 


使 得 语句 显得 更 


Scala 语 


我 们 


再 从 代码 清 


给 分 刷 


器 


3. 替 代 组 合子 


2 


日 合体 的 原 


始 输入 ， 


开始 处 理 


有 了 水 


items 


Pay 


作 


为 (r1， 


Scala 库 


区 人 


替代 组 合子 。 赫 代 


、 


允许 进行 


王 何 答 代 
规则 


1 


这 和 有 
组 合子 常 


用 于 


纲 则 ， 
nton ES "rosel1" o。 妇 0 
页 序 决定 选择 的 先后 次 序 。 


4. 选 择 性 顺序 组 合子 


分 忆 


a 


说 明 顺 序 台 
于 是 它 党 试 调 用 
如 果 分 析 成 功 ， 即 产生 一 个 ParseResult ， 

account_spec ， 
么 这 时 “~” 组 合子 将 返回 一 个 结果 类 型 


假设 
下 的 输入 。 如 


\ 组 合子 以 回溯 万 式 查找 备 选 规则 a 
调 的 时 候 ， 替 代 双 


合子 的 工作 原理 。 
ems 命名 的 规则 体 (或 方法 
1 做 r1。 然 后 序列 中 的 下 

果 也 分 析 成 功 


的 Parser 。 


) 来 
个 分 析 咽 


以 让 


二 | 


r2) 


AL 


只 有 


于 才 生 效 。 


清单 8-2 的 位 置 @。 输 入 首先 进入 第 一 


个 隐 式 转换 把 String 转换 为 Parsers[String] 。 


Tf 结 ; 


接 作 为 buy_sel11 的 


组 合子 在 “~>” 和 “<~” 方 法 中 实现 ， 
剔除 那些 不 属于 


话 


分 


这 次 的 分 析 成 功 了 ， 


1 选择 性 


条 备 选 规则 "to" ~> "buy" 。 定 义 在 Parsers 


在 位 置 @，items 接收 到 传 
分 析 输 入 四。 


产生 ParseResult r2 ， 那 


前 一 个 分 析 器 发 


上 
行 


如 果 分 析 成 功 ， 
回 。 如 采 分 本 不 成 功 ， 
回 其 结果 。 分 析 器 ， 


绰 > 


结果 返 
就 返 


地 保留 右边 的 结果 和 左边 的 结果 


义 模 型 构成 部 4 


分 的 信息 。 也 就 是 说 ， 


则 不 用 理会 后 
则 尝试 下 一 条 
总 是 按照 备 选 规则 的 


。 选 择 性 | 
虽然 我 们 需要 识别 整个 序 


< 备 


顺序 


列 ， 但 只 有 其 中 一 个 分 析 器 的 结果 是 我 们 感 兴趣 的 。 


再 看 代码 清单 8-2。 我 们 以 位 置 @ 的 代码 来 说 
不 过 它 仅 保留 运算 符 右 侧 分 析 器 的 结果 。 
。<~ 方 法 同样 与 ~ 用 法 相似 ， 但 仅 保留 


二 


需要 的 ， 因 此 也 从 结果 中 去 除 。 
5. 重 复 组 合子 


J 用 法 类 似 于 ~， 


0 
运算 符 左 侧 分 析 器 的 结果 。 例 中 的 ， 


In 
工 / 口 


此 不 在 结果 中 保 
续 处 理 中 也 是 


重复 组 合子 用 来 实现 重复 性 的 结构 。 对 


表 8-2 不同 变 体形 式 的 重复 组 合子 


变 体形 式 


(rep(p)，p”) 


(repsep(p, sep), p*(sep)) 


(rep1(p), p+) 


(replsep(p, sep), p+(sep)) 
(repN(n, p)) 


hu 国人 
um | pam | man | pat | ram 


代码 清单 8-2 在 位 置 @ 处 使 用 ] 


mh 
Wap 
al 
A 
Hr 


一 个 或 多 个 Line_item 扣 


6. 知 识 点 间 的 联系 


许多 开发 者 都 有 一 个 共同 的 顾虑 ， 担 心 这 些 


铺垫 工作 ， 才 能 确保 组 合 分 析 器 的 效果 。 


0 我 们 必须 9 
大 所 


EF 
一 


通过 抽象 之 向 的 入 和 


对 优秀 的 抽象 设计 的 最 高 追求 。 在 本 


操作 将 使 组 合子 的 实现 大 大 简化 。 
8.2.3 用 Monad 组 合 DSL 分 析 器 


担 ， 建 立 一 种 具有 分 析 器 绑 定 能 力 的 


这 种 抽象 就 是 在 第 6 章 曾 经 出 现 的 Scala 的 Monad。 那 时 学 


分 析 器 组 合子 是 
言 


和 
大 更 复杂 、 语言 识别 能 力 更 强 的 分 析 器 


! 运 用 函数 式 编 程 昌 原则 日 分 


上 上 用场 ，Monad 化 的 


了 以 9 作为 分 


做 好 大 量 的 
象 ， 始 终 是 我 们 
能 够 以 较 小 的 代码 编写 负 


本 的 分 析 器 组 合成 


图 8-7 组 合子 将 较 小 的 分 析 器 组 合 起 来 ， 形 成 更 大 的 分 析 器 


我 们 从 上 一 节 得 知 ， 顺 序 组 合子 和 替代 组 合子 能 把 交 给 它们 的 输入 串联 起 来 。 那 么 这 种 串联 具体 
是 怎么 实施 的 呢 ? 


现 顺序 组 合子 的 笨 办 法 
我 们 先 来 考虑 Scala 顺 序 组 合子 的 实现 方案 。 代 码 清单 8-3 是 其 中 
代码 清单 8-3 ”实现 Scala 的 顺序 组 合 了 


def ~ [U](p: => Parser[U]): Parser[~[T, U]] = 
new Parser[~[T，U]] { 
def apply(in: Input) = 
Parser.this(in) match { @ 调用 当前 分 析 器 来 分 析 输 入 
case Success(r1，next1) => p(next1) match { @ 成 功 ! 把 余下 的 输入 传 下 去 
case Success(r2，next2) => Success((r1，r2)，next2) @@ 最 后 成 功 ! 
case Failure(msg, next) => Failure(msg, next) 


! 做 法 : 


>= 


case Failure(msg, next) => Failure(msg, next) 


这 个 实现 是 正确 的 ， 组 合子 的 行为 完全 符合 要 求 。 当 前 分 析 器 处 理 原始 输入 流 并 进行 分 析 @。 如 
果 成 功 ， 则 分 析 结 果 连 同 余下 的 输入 一 起 被 传递 给 参数 中 指定 的 ee 析 @。 如 果 
也 成 功 了 ， 最 后 的 分 析 结 果 连 同 余下 的 输入 一 起 ， 作 为 最 后 的 分 析 器 ~[T，U] 返回 。Parsers 
trait 里 为 ~[T，U] 定义 了 一 个 类 。 


那 这 个 实现 挺 不 错 的 ， 对 吧 ? 听 ， 好 像 哪里 不 对 劲 。 你 看 出 来 问题 在 哪里 了 吗 ? 
那些 担任 嘻 场 角色 的 代码 占据 了 舞台 的 中 心 ， 这 段 程序 的 观众 很 难 在 一 片 喧 亲 的 掩盖 下 发 现 表 达 


顺序 组 合 语义 的 核心 逻辑 。 这 种 含义 不 清 的 错误 应 该 时 时 引起 我 们 的 警觉 。 错 误 的 根源 出 在 代码 
清单 8-3 的 抽象 层次 上 ， 我 们 用 了 非常 低 层次 的 抽象 来 编程 ， 因 此 导致 实现 细节 被 暴露 在 用 户 面 


2. 用 Monad 消 灭 串 场 代码 


观察 现在 的 组 合子 实现 ， 那 些 需要 被 让 掩 起 来 的 细 世 ， 都 是 一 些 负责 连接 组 合 各 抽象 的 串 场 代 
码 。 而 我 们 从 第 6 章 就 知道 ，Monad 特 别 擅长 解决 这 类 问题 Monad 化 的 绑 定 操作 可 以 帮助 我 们 
颖 地 连接 各 抽象 ， 它 在 Scala 语 言 里 的 对 应 实现 是 flatMap 组 合子 。 因 此 我 们 可 以 在 组 合子 的 设 
1 入 Monad 的 概念 ， 依 靠 各 种 Monad 化 的 抽象 来 组 合 分 析 器 。 为 了 防止 低层 次 的 体 实 现 | 证 
征 
象 


扰 日 合子 的 设计 ，Scala 组 合子 库 把 ParseResult 和 Parser 都 设计 成 Monad 化 的 抽象 。 也 就 
说 ， 我 们 不 需要 自行 添加 任 SR a 就 可 以 直接 把 多 个 Parser 和 ParseResu1lt 才 
连接 在 一 起 。 改 造 之 后 ， 我 们 的 顺序 组 合子 实现 变 成 了 一 行 简单 的 for -comprehension 语句 : 


def ~ [UJ](p: => Parser[U]): Parser[~[T, U]] = 
(for(a <- this; b <- p) yield new ~(a,b)).named("~") 


这 就 对 了 ! 一 个 看 着 漂亮 、 用 着 简洁 的 抽象 就 这 么 呈现 在 我 们 面前 。 


品 Monad 跟 我 们 的 DSL 实 现 有 什么 关系 呢 ? 


作为 DSL 设 计 者 ， 我 们 除了 使 用 一 个 库 ， 还 需要 对 其 内 部 的 实现 技术 有 所 了 解 。Scala 用 库 的 
0 ， 其 实 是 在 告诉 我 们 ， 这 些 组 合子 本 来 就 是 准备 要 被 扩展 的 。 我 们 在 所 

必定 会 遇 到 需要 自行 实现 合子 的 情况 。 到 那个 时 候 通过 各 种 Monad 化 的 抽象 设计 来 连 
接 分 析 希 的 知识 就 会 派 上 用 场 。 


美好 的 结果 总 是 由 各 种 正 碎 而 关键 的 引 
去 发 掘 。 


编写 DSL 分 析 器 的 时 候 ， 可 以 用 Monad 来 改善 组 合子 的 设计 ， 这 个 话题 我 们 就 说 到 这 里 。 接 下 
来 ， 话 题 将 转 到 Scala 组 合子 库 的 另 一 项 特性 ， 它 也 是 实现 复杂 DSL 结 构 必 不 可 少 的 强力 工具 


8.2.4 左 递归 DSL 语 法 的 packrat 分 析 


到 目前 为 止 ， 我 们 研习 过 的 若干 自 项 向 下 递归 下 降 分 析 器 (参阅 第 7 章 ) 都 只 能 处 理 固 定数 量 的 前 
瞻 符 号 集 ， 这 因此 限制 了 它们 所 能 识别 的 语言 种 类 。 我 们 的 DSL 很 有 可 能 信和 些 超 出 常规 自 顶 
向 下 分 析 器 能 力 范围 的 语法 ， 这 些 语 法 或 者 无 法 被 正确 识别 ， 或 者 识别 的 效率 太 低 。LL(D 分 析 器 
( 见 第 7.3.1 小 节 ) 帮 只 用 一 个 前 脆 符 号 来 搜寻 适用 的 文法 规则 ， 而 且 LL(k ) 的 前 瞻 符 号 集合 的 大 小 也 
是 有 限 的 ， 收 最 多 能 够 匹配 K 个 符号 。 这 类 分 析 器 称 为 预测 分 析 器 (predictive parsers) ， 因 为 它们 
通过 预先 查看 输入 流 的 内 容 来 推测 适用 的 规则 。 


还 有 另 一 类 自 顶 向 下 递归 下 降 分 析 器 ， 叫 做 回溯 分 析 器 〈backtracking parsers) 。 它 们 通过 回 退 并 
逐条 党 试 备 选 规则 的 方式 来 推断 下 一 条 适用 规则 。 我 们 从 上 文 对 Scala 组 合子 库 的 介绍 中 得 知 ， 圭 
代 组 合子 就 有 这 样 的 能 力 ， 它 会 回溯 并 尝试 我 们 提供 的 其 他 备 选 文法 规则 。 


预测 分 析 器 速度 很 快 ， 使 用 线性 时 间 解 机， 而 回溯 分 析 器 实现 会 轻易 地 退化 为 指数 时 间 。 请 
下 面 这 段 用 Scala 分 析 器 组 合子 写成 的 简单 的 文法 规则 ， 它 的 工作 是 对 表达 式 求 值 : 
lazy val exp = exp ~ ("+" ~> term) | 


exp ~ ("-" ~> term) | 
term 


NAN 


{过 


1 文 撑 起 来 的 ， 这 些 知识 需要 你 到 Scala 组 合子 库 的 源 代码 


O 


亏 
天 
际 
让 


按照 这 个 exp 分 析 器 的 定义 ， 如 果 第 一 行 备 选 规则 开头 的 exp 成 功 了 ， 但 随后 的 输入 不 是 “+”， 那 
么 分 析 器 将 回 滚 输 入 ， 改 为 莹 试 第 二 行 备 选 规则 。 这 时 分 析 器 又 把 第 二 行 开 头 的 exp 重新 分 析 一 


着。 。 在 分 析 器 找到 一 条 完全 匹配 的 备 选 之 前 ， 会 反复 出 现 重新 分 析 的 情形 。 这 种 重复 性 的 分 析 过 
程 将 导致 指数 级 的 时 间 复 杂 度 。 


i ) 析 器 ( 见 第 8.6 市 文献 [3]) 通过 中 间 结 果 记 忆 (memoization) 技术 来 解决 重复 计算 的 问 

页 。packrat 分 析 器 会 缓存 尼 执 行 过 的 所 有 计算 ， 因此 当 分 析 器 再 次 遇 到 相同 的 计算 时 ， 就 不 必 再 
算 _ 纺 [是 直接 从 缓存 二 取出 结 条 ， 其 时 站 司 复杂 度 为 党 常数 。packtrat 分 析 器 通过 回溯 的 方式 ， 可 
以 处 理 不 限 数 量 的 前 瞻 符 号 。 另 外 ， 这 种 分 析 器 分 析 算 法 的 时 间 复 杂 度 是 线性 的 。 我 们 将 在 以 下 
几 个 小 节 说 明 packrat 分 析 器 的 优势 。 


定义 “记忆 ” (memoization) 是 一 种 实现 技术 ， 通 过 缓存 前 面 的 计算 结果 来 达到 避免 重新 i 
目的 。 


1. 记 忆 特 性 提高 packrat 分 析 器 的 执行 效率 


我 们 应 该 怪 样 实现 packrat 分 析 器 的 中 间 结 果 记 忆 特 性 呢 ? 这 取决 于 用 什么 语言 来 实现 packrat 分 析 
器 。 如 果 使 用 像 Haskell 那 样 默 认 采 取 缓 求 值 (lazy-by-default) 的 语言 ， 那 么 完全 不 需要 为 实现 记 
忆 特 性 做 任何 工作 。Haskell 本 身 就 是 按 需 求 调用 (call-by-need) 语义 来 实现 的 ， 它 一 方 盏 延迟 求 
值 ， 另 一 方面 记忆 已 求 值 的 结果 ， 以 备 后 续 使 用 。Haskell 通 过 纯 男 数 式 的 、 带 记忆 特性 的 回 浏 分 
析 器 8 提 代 最 完美 的 实现 。 


| 


Scala 不 是 一 种 默认 采取 缓 求 值 的 语言 。 分 析 器 组 合子 通过 使 用 一 个 特殊 的 、 带 有 缓存 能 力 的 
Reader 来 显 式 实现 记忆 特性 。 从 下 面 的 片段 可 以 看 出 ，Scala 的 packrat 分 析 器 扩展 了 Parsers 
trait， 并 在 其 中 舱 入 一 个 实现 了 记忆 特性 的 特殊 Reader (PackratReader) 


trait PackratParsers extends Parsers 
class PackratReader[+T](underlying: Reader[T]) 
extends Reader[T] { 
//.. 


} 
A is 


} 


如 果 用 Scala 提 供 的 PackratParsers 实现 来 执行 刚才 举例 的 exp 分 析 器 ， 效 率 将 大 为 提高 。 昌 
然 分 析 器 匹配 第 一 行 备 选 时 失败 了 ， 但 对 该 行 开头 的 exp 识别 是 成 功 的 ， 这 个 识别 的 结果 将 被 记 
忆 起 来 。 于 是 当 分 析 器 遇 到 第 二 行 备 选 开头 的 exp 时 ， 就 不 必 再 执行 一 遍 识 别 过 程 ， 而 是 直接 从 
缓存 中 取出 分 析 结 果 。 由 于 重用 了 执行 过 的 运算 ， packrat 分 析 可 以 在 线性 时 间 内 完成 。 


2.packrat 分 析 器 支持 左 递归 


即使 带 有 记忆 特性 ， 最 初 的 packrat 分 析 器 设计 照样 处 理 不 了 左 递 归 的 文法 规则。 实际 上 ， 任 何 
ee 下 降 分 析 器 都 处 理 不 了 左 递 归 。 我 们 可 以 继续 用 刚才 的 表达 式 求 值 分 } 析 器 来 进行 说 
明 : 


lazy val exp = exp ~ ("+" ~> term) | 
exp ~ ("-" ~> term) | 
term 


如 果 把 “100 - 20 -45” 这 样 的 表达 式 输入 分 析 器 会 出 现 什么 情况 呢 ?exp 分 析 器 首先 会 查找 记忆 

表 ， 确定 是 否 有 自身 的 求 值 结果 。 由 于 这 是 首次 尝试 进行 分 析 ， 记 忆 表 是 空 的 ， 表示 为 Nil1。 于 
是 exp 分 析 器 尝试 对 规 则 体 进行 求 值 ， 而 不 幸 的 是 规则 体 又 以 exp 开头 。 所 以 exp 分 } 析 器 就 这 样 
陷入 了 无 限 递归 的 死 循 环 。 


任何 左 递归 的 规则 都 可 以 通过 变换 过 程 ， 转 为 等 价 的 非 左 递归 文法 。 有 些 packrat 分 析 器 实现 
可 以 对 直接 z 人 但 变换 后 的 规则 会 较为 毗 涩 而 难以 阅读 ， 并 且 令 AST 的 生成 
过 程 更 为 复杂 。 
现在 的 packrat 分 析 器 通过 一 种 新 的 记忆 技术 实现 了 对 (直接 和 间接 ) 左 递归 的 支持 ， 该 技术 最 先 
由 Warth 等 人 实现 (参见 第 8.6 节 文献 [4]) 


Scala 组 合子 库 里 的 PackratParsers 实现 了 这 种 形式 的 记忆 特性 ， 可 支持 文法 规则 中 的 直接 及 

间接 左 递归 。 我 们 会 在 第 8.3 节 看 到 用 Scala 分 析 器 处 理 左 递归 文 ; 去 的 例子 。 关于 该 特性 实现 技术 的 
详情 ， 请 在 Scala 源 代码 中 查阅 与 packrat 分 析 器 相关 的 部 分 。 除 了 能 在 线性 时 间 内 完成 不 限 前 瞻 符 
号 数量 的 回溯 分 析 外 ，parsers 分 析 器 还 有 更 多 适合 用 于 外 部 DSL 实 现 的 特性 。 


3.packrat 分 析 器 提供 无 扫描 器 的 语法 分 析 


典型 的 分 析 器 会 单独 设立 一 个 扫描 器 ， 用 于 输入 流 词 法 单元 的 划分 。Packrat 分 析 器 不 需要 单独 的 
扫描 器 ， 其 表达 词法 和 表达 上 下 文 无 关 文法 的 形式 体系 是 统一 的 。 


你 可 能 想 知 道 无 扫描 器 的 语法 分 析 有 什么 优点 。 首 先 分 站 析 器 个 需要 妆 排 一 个 单独 的 词法 分 让 析 器 
象 ， 因 为 只 有 一 套 统 一 的 语法 需要 处 理 。 由 于 采用 packrat 分 析 的 文法 在 一 个 抽象 里 吉 括 了 整个 分 


yx 入 


这 


uy 


束 注 


析 阶 段 ， 所 以 文法 间 的 组 


合 能 力 。 

当然 ， 无 扫描 0 为 了 分 保留 字 和 标 ; 符 ， 我 们 需要 为 文法 补充 一 全 此 

作为 消除 : 瞬 义 用 途 。 此 外 ， 语 言 中 的 分 隔 符 也 需要 额外 的 消除 卜 义 处 理 

别 。 

4. 支 持 语 义 谓词 

除了 packrat 分 具有 的 语法 匹配 能 力 外 ， 我 们 还 可 以 在 文法 规则 中 添加 语义 谓 i 

义 谓词 可 以 根据 其 他 语法 实体 的 语义 来 判断 分 析 是 否 成 功 。 

5. 依 序 选择 

Packrat 分 } 析 器 不 同 于 其 他 使 用 上 下 文 无 关 文法 的 分 析 器 ， 其 玲 代 组 合子 只 支持 依 序 选择 。 因 
果 组 合子 的 几 个 备 选 项 开头 部 分 有 重合 ， 应 该 把 匹配 长 度 较 长 的 备 选项 排 在 前 面 。 

packrat 分 析 器 3 选择 的 规定 来 消除 LR 分 析 器 下 可 能 出 现 的 “ 移 进 / 归 约 ”冲突 和 “ 归 狂 

突 。 


较为 容易 。 如 果 我 们 需要 组 合 多 


外 部 DSL， 这 样 的 设计 能 提高 组 


才能 被 正 


解 了 什么 是 分 析 器 组 


8.4 节 时 ， 我 们 会 再 回 到 packrat 分 析 器 这 个 话题 ， 并 

咒 是 去 有 

通常 DSL 只 在 某 些 局 部 才 需 要 处 理 复杂 的 左 递归 

析 器 ， 而 其 他 地 方 还 是 用 一 般 的 递归 下 降 分 析 器 ， lb 分析 名 组 
通 分 析 器 和 


到 目前 为 止 ， 


过 以 上 


析 器 ol 


整 交 易 指令 


我 们 用 不 同 的 宿主 
人 
我 们 放 在 随 : 
前 ， 让 我 们 先 


表 8-3 DSL 实现 技术 的 对 比 


站 
全 


本 章 介 绍 了 分 析 器 组 合 ] 
来 设计 乡 部 DSL， 还 对 一 个 用 Scala 提 供 
8-2) 进行 了 详细 的 分 析 。 经 
来 设计 DSL， 所 要 求 的 思维 方式 是 不 同 的 。 我 

能 力 和 优 缺 点 。 下 一 节 ， 
ss 使 用 分 析 器 8 生成 器 的 外 部 DSL 、 使 用 分 


8.3 用 分 析 器 组 合子 设计 DSL 的 步骤 


分 析 器 组 En 充 的 简洁 特性 和 纯 函 数 的 强 
可 以 从 一 个 DSL 设 计 者 的 


一 


门将 融 汇 全 


的 基础 知识 ， 


合子 ， 也 知道 用 packrat 分 析 器 可 以 得 到 高 
j 它 来 设计 一 个 DSL 。 


文法 规则 。 


习 ， 


的 组 合子 库 实现 的 交易 指 


效率 的 分 析 设 计 。 


个 DSL 实 现 内 所 有 的 分 析 器 都 设计 成 packrat 分 析 器 ? 


这 些 地 方 使 用 


合子 允许 我 们 自 


说 明了 怎样 在 函数 式 语言 里 使 用 


令 处 理 D5L 文 法 样 


已 经 总 识 到 ， 


们 决定 实现 策略 的 前 提 ， 


你 肯定 


书 关 于 DSL 设 计 的 全 部 讨 1 


分 析 器 组 合子 这 档 


例 
的 画 


是 掌握 了 各 种 
沦 内 容 。 其 中 的 重点 是 


析 器 组 合子 的 


言 如 Ruby、Groovy 和 Scala 设 
HDsL 设 计 扫 法。 


部 DSL 三 者 之 此 


大 


计 过 内 部 DSL， 


和 度 ， 试 着 把 


尝试 了 分 析 


] 的 差异 。 


昌 合 能 力 。 我 们 已 经 讲解 了 很 多 分 
门 融 汇 起 来 ， 实 际 制 作 一 套 完 


下 面 即 将 要 进行 的 是 分 析 器 组 合子 的 实际 演练 ， 


部 DSL 设计 方式 生 


ji TT 工 


的 又 一 件 得 力 工 具 。 表 8-3 是 几 逢 不 同 实现 技术 的 对 比 表格 在 开 
[两 种 外 部 DSL 设 计 方式 之 间 的 区 


特征 


内 部 DSL 


外 部 DSL 


分 析 器 生成 器 


分 析 器 组 合子 


完全 在 宿主 语言 内 构 | 是 。 可 以 完全 内 出 于 宿主 语言 (如 否 。 通 常 需要 外 部 的 分 析 器 | 是。 宿主 语言 必须 支持 高 阶 画 数 
建 Scala) ， 也 可 以 是 生成 式 的 〈 如 Ruby 和 | 生成 器 设施 (如 LEX、 并 提供 分 析 器 组 合子 库 (如 
Lisp) YACC 和 ANTLR) Scala 和 Haskell) 

供 最 终 用 户 使 用 的 否 。 分 析 设 施 对 DSL 作 语法 | 否 。 每 个 词法 单元 都 被 转换 成 一 
DSL 是 可 直接 运行 的 | 是 。DSL 产 物 是 宿主 语言 的 方法 调 分 析 ， 然 后 执行 每 个 符号 所 | 个 parser 实例 ， 然 后 通过 组 合 
宿主 语言 代码 关联 的 画 数 子 串联 起 来 

最 终 用 户 需要 掌握 宿 | 基本 上 是 ， 噶 管 和 错误 处 理 要 借助 宿主 语 | 否 。DSL 是 通过 分 析 器 生成 | 否 。DSL 是 借用 宿主 语言 提供 的 
主语 言 i 0 器 产生 的 二 种 全 新 语言 语言 处 再 设 施 建立 的 一 种 新 语言 
希望 以 上 对 比 能 帮助 你 理 清 概念 。 接 下 来 我 们 就 以 代码 清单 8-2 的 文法 设计 为 基础 ， 按 音 部 就 班 地 建 


| 完整 的 语 言 模型 。 第 一 步 ， 我 们 需要 验证 一 下 该 文法 是 否 真 的 能 识别 我 们 的 语言 并 生成 一 
棵 分 析 树 。 


8.3.1 第 一 步 : 执行 文法 

观察 代码 清单 8-2 的 设计 ， 这 段 文法 已 经 完整 地 定义 了 我 们 的 交易 指令 处 理 DSL， 能 够 完全 胜任 对 
清 Ra 2 分 析 工 作 。 下 面 这 段 程序 将 依据 前 面 的 文法 定义 处 理 DSL 脚 本 ， 并 在 分 析 成 功 
时 产生 输 


代码 清单 8-4 ”运行 DSL 处 理 程序 


val str = """(100 IBM shares to buy at max 45, 40 Sun shares 
to sell at min 24, 25 CISCO shares to buy at max 56) 
for account "A1234"™""" 


import OrderDs1., 


order(new lexical.Scanner(str)) match { @ 调用 order 分 析 器 
case Success(order, _) => 
println(order) @ 分 析 成 功 
case Failure(msg, _) => printlin("Failure: " + msg) 
case Error(msg, _) => println("Error: " + msg) 


在 这 上段 程序 里 ， 我 们 调用 了 DSL 文 法 中 级 别 最 高 的 抽象 order 分 析 器 @ ( 见 代 码 清单 8-2 的 文法 定 
义 ) 。 如 果 我 们 输入 的 脚本 分 析 成 功 了 ， 那 么 就 把 输出 打印 出 来 @， 否 则 打印 出 分 析 器 产生 的 错 
误 消 轧 。 单纯 打印 出 分 析 器 的 默认 输 出 并 无 太 大 意义 ， 对 于 语言 的 分 析 也 没什么 实际 作用 。 在 下 
六 里 ， 我 们 会 在 这 个 地 方 生成 语义 模型 。 不 过 现在 ， 你 能 猜 出 打印 语句 @ 会 输出 什么 结 ; 
有 9 


为 了 找到 管 案 ， 我 们 要 从 分 析 过 程 产生 的 分 析 树 着 手 。 请 看 图 8-8。 


Order 


1i 


buy_sell 


ne_ item 


pri 


security_spec 
rT 1 1 


(1001BM shares to buy at 


| 


ce_spec 


min_max 


DO 


account spec 


| 


) for account 


"Al234" 


图 8-8 ”根据 代码 清单 8-2 的 文法 定义 产生 的 分 析 树 。 省 略 号 的 部 分 代表 可 以 出 现 多 个 line_item 
成 分 。 所 有 成 分 最 终归 约 为 树 根 处 的 order 节点 


这 个 分 析 过 程 与 我 们 在 第 
每 一 步 ， 我 1 
如 DSL 脚 本 


被 从 输出 
(100~IBM) 。 沪 
合子 (?) 会 生成 一 个 Scala 语 言 


对 图 8-5 分 析 树 


] 都 把 分 析 结 
1“100 IBM shares” 的 前 
numericLit ~ (ident <~ "shares") 。 


' 刘 除 。 整 个 片段 的 分 析 结 


章 讲 解 


2 [| 


FE 意 replsep 


果 作 : 


组 


输 


[| 


ANTLR 开 发 外 部 DSL 时 介 绍 的 分 析 过 程 相同 。 


4。 输出 内 容 取 


分， 


守 


E 四 
口 


站 


全 


全 


rt 


已 


上 所 有 的 节点 都 进行 类 似 的 处 到 


责 归 


3 约 它 的 文法 


umericLit 逢 


于 构 。 
之 后 ， 我 们 人 


决 于 我 们 搭建 文法 时 
规则 是 lazy val s 
因为 我 们 用 了 <~ 组 合子 ， 所 以 其 中 
Hident 的 结果 顺序 组 
子 会 生成 一 个 由 所 有 line_item 寺 
Option[] 


号 到 DSL 脚 本 


使 


有 
的 组 合子 。 


析 过 程 的 


例 


ecurity_spec = 
的 “shares” 部 分 


合 | 


象 组 


[成 ， 即 输 
成 的 List 。 可 选项 组 


分 析 成 功 的 最 终 输出 : 


出 为 


(List((((100~IBM)~buy)~(Some(max)~45)), 
(((40~Sun)~sell)~(Some(min)~24)), 
(((25~CISCO)~buy)~(Some(max)~56)))~A1234) 


这 样 一 个 纯 文本 的 输出 ， 能 在 现实 的 应 用 程序 里 起 作用 吗 ? 确实 不 能 ， 将 一 段 由 多 元 组 和 列 
才 江 到 起 来 的 DSL 关 本 委 皮 天 结 认 的 六 本 表示 ， 这 样 的 分 析 成 果 没 有 任何 训 实 意义 半 此 ， 我 人 
要 建立 起 Order 抽象 的 语义 模型 ， 然 后 在 分 析 过 程 中 利用 另外 一 些 组 合子 向 该 模型 填 入 实际 的 内 
容 。 

8.3.2 第 二 步 : 建立 DSL 的 语义 模型 

现在 我 们 知道 ， 前 面 默认 的 分 析 结 果 输 出 毫 无 用 处 ， 我 们 需要 在 应 用 的 上 下 文 里 赋予 其 意义 和 功 
下 那么 具体 应 该 怎么 做 呢 ? 答案 很 简单 : 我们 需要 用 一 个 更 合适 的 抽象 来 充当 DSL 的 语义 模 
为 Order 抽象 建立 语义 模型 并 不 是 难题 ， 但 构建 好 的 模型 ， 要 怎样 结合 到 分 析 过 程 中 去 呢 ? 
Scala 组 合子 库 准 备 了 一 些 函 数 施用 组 合子 ， 可 以 用 在 对 分 析 结 果 的 变换 操作 上 “。 这 些 组 合子 帮助 
我 们 把 语义 模型 和 文法 规则 集成 在 一 起 。 我 们 分 析 DSL 脚 本 ， 同 时 调动 这 些 组 合子 ， 一 块 一 块 地 
人 垒 起 语义 模型 。 各 分 析 器 不 再 〈 像 代码 清单 8-2 那 样 ) 输出 默认 的 返回 值 ， 而 是 返回 语义 模型 需要 
的 属性 。 这 样 ， 当 分 析 过 程 完成 时 ， 作为 语义 模型 的 AST 也 就 完整 地 建立 起 来 了 。 

下 面 ， 我 们 来 详细 了 解 一 下 这 些 函 数 施 用 组 合子 。 


1. 函 数 施用 组 合子 


Scala 有 两 个 函数 施用 组 合子 : AA 和 AAA。 跟 别 的 组 合子 一 样 ，AA 和 AAA 都 是 Parsers trait 里 的 
方法 。 对 于 分 析 器 p 和 函数 f ， 表 达 式 p AA f 将 产生 一 个 识别 p 的 结果 的 分 析 器 。 如 果 p 分 析 成 


功 ， 则 组 合子 将 对 p 的 结果 施用 范 数 f。 请 思考 下 面 的 文法 片段 : 


lazy val order: Parser[Order] = items ~ account_spec ^ 
{ case i ~ a => Order(i, a) } 


AA 组 合子 对 表达 式 items ~ account_spec 的 分 析 结 果 施 用 了 一 个 匿名 的 模式 匹配 画 数 。 


I 


此 order 分 析 器 输出 的 不 是 默认 返 


Parser 类 型 。 对 于 这 个 细节 的 详细 说 明 可 以 参看 图 8-9 及 其 后 的 解释 。 


值 ， 而 是 一 个 Parser [Order] 。 值 得 注意 的 是 ， 


返回 的 本 来 是 一 个 0rder 抽象 ， 但 由 于 Parsers trait 内 定义 的 隐 式 转换 ， 被 提升 为 相应 的 


人 人 人 组 合子 类 似 于 ^^ 组 合子 ， 只 不 过 ^^ 是 对 分 析 器 p 的 结果 施用 一 个 函数 f ， 而 和 ^^^ 则 是 


析 器 p 的 结果 替换 为 一 个 指定 的 取 值 r 。 
2. 偏 画 数 施用 组 合子 


将 分 


匿名 瑞雪 


SR 


Scala 的 偏 画 数 施用 组 合子 是 ^ 吗 ?对 于 分 析 器 p 和 偏 画 数 f ， 表 达 式 p ^? (f，error) 产生 一 个 


EF 


数 f 。 如 果 f 不 适用 ， 出 现 error 并 给 出 相应 的 理 


识别 p 的 结果 的 分 析 器 。 如 果 p 分 析 成 功 ， 且 f 在 p 的 结果 上 有 定义 ， 则 组 合子 对 p 


我 们 的 最 终 目 标 是 解析 DSL 脚 本 并 建立 一 个 供 核心 应 用 使 用 的 领域 模型 。 对 于 交易 指令 处 理 
来 说 ，Order 抽象 即 为 其 中 一 个 核心 的 领域 构造 产物 。 那 么 下 一 节 ， 就 让 我 们 运用 代码 清 


义 的 文法 和 刚刚 学 会 的 几 个 组 合子 来 建立 这 个 重要 的 Order 抽象 。 
8.3.3 第 三 步 : 设计 Order 抽 象 


的 结果 施用 画 


DSL 


有 8-2 定 


我 们 打算 自 底 向 上 地 构建 Order 抽象 ， 这 样 随 着 语法 分 析 的 步骤 进展 ， 组 成 抽象 的 那些 构造 单元 


就 正好 对 应 地 成 为 一 个 个 AST 节 点 。 很 容易 想到 ， 为 了 达到 这 种 设想 中 的 效果 ， 我 们 可 以 用 


的 case 类 来 建 模 抽 象 的 构造 单元 ， 然 后 通过 函数 施用 组 合子 直接 将 其 插入 到 文法 
Scala 语 言 case 类 的 详细 介绍 参见 附录 D 。 


首先 请 看 下 面 的 Order 模型 。 它 既是 语义 模型 ， 也 是 分 析 器 要 生成 的 AST 。 
代码 清单 8-5 ”交易 指令 处 理 DSL 的 语义 模型 


规则 之 中 。 


package trading.dsl 


object AST { 
trait PriceType 
case object MIN extends PriceType 
case object MAX extends PriceType 


case class PriceSpec(pt: Option[PriceType], price: Int) 
case class SecuritySpec(qty: Int, security: String) 
trait BuySell 

case object BUY extends BuySell 

case object SELL extends BuySell 


case class LineItem(ss: SecuritySpec， 
bs: BuySell, ps: PriceSpec) 


case class Items(lis: Seq[LineItem]) 
case class AccountSpec(account: String) 


case class Order(items: Items, as: AccountSpec) 


} 


、 


Wa 


是 再 普通 不 过 的 Scala 代 码 ， 我 们 在 第 6 章 设计 内 部 DSL 的 时 候 就 写 过 很 多 类 似 的 。 清 单 里 的 这 些 
要 被 分 派 、 插 入 到 各 自 对 应 的 文法 规则 里 ， 然 后 在 实际 生成 AST 的 时 候 再 汇合 起 来 ， 组 成 我 们 
见 在 看 到 的 样子 。 

8.3.4 第 四 步 : 通过 函数 施用 组 合子 生成 AST 


有 了 语义 模型 后 ， 0 0 添加 构造 AST 所 需 的 Scala 组 合子 。 不 
通过 什么 技术 手段 来 处 理 DSL， 最 终 目 标 总 是 产生 一 个 可 供应 用 在 别处 使 用 的 抽象 。 


下 面 的 代码 清单 在 代码 清单 8-2 的 文法 基础 上 添加 函数 施用 组 合子 。 
代码 清单 8-6 ”交易 指令 处 理 DSL 的 AST 


import scala.util.parsing.combinator._ 
import scala.util.parsing.combinator.syntactical._ 


状 区 


HH 


芭 


天 


NI 


object orderDs1 extends StandardTokenParsers { 
lexical.reserved += 


("to", "buy", "sell", "min", "max", "for., "account", "shares", "at") 
lexical.delimiters += ("(", ")", ",") 
import AST._ ”让 分 析 器 能 够 访问 语义 模型 


lazy val order: Parser[Order] = 
items ~ account_spec AA { casei~a=> Order(i, a) } 画 数 施用 组 合子 ^^ 


lazy val items: Parser[Items] = 
"(" ~> repisep(line item, ",") <~ ")"”AA Items 


lazy val line_item: Parser[LineItem] = 
security_spec ~ buy_sell ~ price_ spec AA 
{case s~b~p => LineItem(s, b, p) } 


lazy val buy_sell: Parser[BuySell] = 
"to" ~> "buy" AAA BUY | ” 画 数 施用 组 合子 AAA 
"to" ~> "sell" AAA SELL 


lazy val security_spec: Parser[SecuritySpec] = 
numericLit ~ (ident <~ "shares") AA 
{ case n ~ s => SecuritySpec(n.toInt, s) } 


lazy val price_spec: Parser[PriceSpec] = 
"at" ~> (min_max?) ~ numericLit ^?”@ 偏 画 数 施 用 组 合子 ^? 
({ case m ~ p if p.toInt > 20 => PriceSpec(m, p.toInt) }, 
( m => "price needs to be > 20" )) 


lazy val min_ max: Parser[PriceType] = 
"min" AAA MIN | "max" AAA MAX 


lazy val account_spec: Parser[AccountSpec] = 
"for" ~> "account" ~> stringLit 人 ^ AccountSpec 


只 要 熟悉 每 个 组 合子 的 含义 ， 这 段 代 码 基 本 上 是 不 语 明 的 ° 在 大 多 数 规则 里 面 ， 我 们 用 人 ^^ 组 合 
子 解构 分 析 器 4 返回 的 多 元 组 ， 并 将 其 嵌入 到 紧 跟 其 后 的 匿名 模式 匹配 画 数 。 图 8-9 对 一 段 文法 规则 
样本 的 归 约 过 程 进行 了 剖析 ， 从 语义 的 角度 解释 了 幕后 发 生 的 活动 。 


顺序 a 这 提取 两 个 分 析 字 A 果 ， 和 于 模式 匹配 
成 一 I Ss ec 的 匿名 函数 
items ~ account spec “^ { case i ~ a => Order(i, a) } 
9 “| 四 获取 各 属性 并 创建 oraer 对 象 
上 
3 : i 
Pd 
ed 及 十 implic def ac 2 
名 Par - 转换 尖 
人 
E 和 ol 
lazy val account spec: Parser[AccountSpec] = 返回 Parser [Order] 


lazy val items: Parser[Items] = 


"(" ~> replsep(line item, ",") <~ ")" ^^ Items 


图 8-9 ”一 条 规则 样本 从 归 约 过 程 开始 到 最 终 返 回 Parser[order] 的 详细 步骤 。items 和 
account_spec 都 是 上 游 的 parser ， 分 别 在 @ 和 @ 汇 入 此 规则 。 顺序 组 合子 执行 
Parser[Items] 和 Parser[AccountSpec] ， 并 将 两 者 的 结果 构造 为 一 个 ~ 实例 ， 传 递 给 函数 
施用 组 合子 @。 模 式 匹配 完成 后 @， 一 个 Order 实例 即 被 构造 出 来 @。 然 后 在 隐 式 转换 的 作用 

下 ，Order 实例 被 提升 为 Parser 类 型 @， 并 返回 @ 


图 8-9 有 一 条 规则 没有 按照 “组 合子 加 模式 匹配 * 的 格式 书写 : 


lazy val items: Parser[Items] = 
"(" ~> repisep(line item, ",") <~ ")" 人 ^ Items 


在 这 条 规则 里 ， 我 们 没有 通过 一 个 匿名 的 模式 匹配 函数 ， 而 是 直接 使 用 了 Items 构造 器 。 因 为 ^^ 
组 合子 的 前 一 个 分 析 器 返回 的 是 Seq[LineItem] 类 型 的 单一 值 ， 正 好 可 以 直接 作为 Items 构造 
器 的 参数 ， 所 以 我 们 可 以 采用 这 样 的 写法 。account_spec 对 应 的 规则 也 采用 了 相同 的 技巧 。 


代码 清单 8-6 用 到 偏 画 数组 合子 ^ 了 吗 ?@ 偏 画 数 有 可 能 在 分 析 器 的 返回 值 上 没有 定义 ， 针 对 这 样 
五 


的 例外 情况 ， 我 们 预备 了 只 在 特殊 上 下 文 内 生效 的 错误 消息 。 请 考虑 这 样 的 场景 ， 假 设 脚本 中 设 
定 的 单价 最 高 为 10 ; 这 时 分 > 析 是 成 功 的 。 但 是 我 们 在 偏 函 数 的 定义 里 ， 加 入 了 验证 输入 的 语义 。 
比如 例 中 的 模式 匹配 语句 内 设置 了 验证 条 件 ， 规 定单 价 的 最 小 值 必须 高 于 20。 (附录 DD 对 Scala 的 
模式 匹配 特性 有 进一步 的 介绍 ) 那么 此 时 在 代码 清单 8-6 的 位 置 @， 虽 然 分 析 器 报告 分 析 成 功 了 ， 
但 PartialFunction 在 分 析 器 的 记 可 值 上 是 没有 定义 的 。 于 是 我 们 就 通过 这 样 的 技巧 实现 了 验 
证 输入 ， 并 能 针对 特定 情况 报告 错误 的 语义 。 


至 此 ， 我 们 的 分 析 器 已 经 具有 完备 的 功能 ， 它 按照 语义 模型 规定 的 结构 返回 的 AST， 同 时 也 是 一 
个 可 以 直接 在 应 用 中 使 用 的 0rder 对 象 实例 。 


六 你 有 没有 起 过 为 什么 每 个 方法 都 是 以 lazy val 开头 ， 而 不 用 def 呢 ? 因为 对 Lazy 
val 方法 的 求 值 会 被 推迟 到 真正 使 用 的 时 刻 ， 而 且 规则 的 定义 顺序 是 无 关 紧 要 的 。 


祝贺 一 下 自己 吧 ! 


现 ee 


我 们 用 分 析 器 组 合子 完整 地 实现 了 一 和 


外 部 DSL 。 


这 是 一 个 简洁 


明了 的 DSL 实 


多 式 仿照 了 大 家 熟悉 的 EBNF 风 格 。 


其 语义 模型 不 人 


日 仅仅 是 


台 马 XR 


BE 人 父 


we 


普通 的 Scala 


象 构成 的 ， 


山 


语法 定义 解 三。 作为 设计 者 ， 我 们 i 


出 这 术 


一 份 管 着 


i 
明 


不 能 要 求 更 多 


3? 


证 明 我 们 已 经 准备 好 党 试 


ee IZ -小 


DSL 实 现 。 


8.4 人 


一 节 我 们 用 分 析 器 引 
因为 它 可 以 做 到 


器 很 特别 ， 


Ee 


全 


于 开发 ] 


~ 


个 完整 的 DSL， 
通 的 自 顶 向 下 递归 


期 间 全 然 没有 
下 降 分 析 器 


发 一 个 需要 依靠 packrat 分 析 器 才能 实现 的 着 
合子 而 数 式 的 威力 ， 本 节 的 DSL 将 更 多 地 


折 的 DSL。 如 果 说 


8.4.1 待 解决 的 领域 问题 


新 的 DSL 。 


易 指 令 处 理 领 域 已 经 被 我 们 摸索 得 


鳃 


数 不 到 的 事情 。 


Ap 


差不多 了 ， 接 下 来 我 们 打 


围 


二 
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AL 


个 交易 


后 的 业务 


到 packrat 分 析 器 的 


有 提起 过 packrat 分 析 器 。Packrat 
我 们 将 在 这 一 市 
上 一 节 的 DSL 让 我 们 认识 到 分 析 
现 Scala 的 PackratParsers 实现 所 独 
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该 机 构 代 为 照管 维护 。 
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我 们 的 新 DSL 训 
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结算 可 
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证 券 和 和 


投资 经 理 需 要 维护 一 个 常设 规则 数 # 


查询 如 何 


昌 库 ， 每 次 交易 后 从 


这 些 规则 就 是 所 谓 的 SSI 。SSI 要 经 常 性 


帅 
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两 部 分 组 成 : 证 分 和 现金 分 。 两 部 分 的 结算 


。 如 果 希 望 证 券 


HT 


举 个 例子 ， 投 资 
账户 A-123 。 这 条 
候 按 照 从 具体 到 
BOTM 账 户 BO-234。 那 么 综 
将 通过 BOTM 结 算 ， 


部 分 和 现金 部 分 


民 行 可 能 会 有 这 
规则 将 适用 于 在 没 
宽泛 的 顺序 。 


那么 相应 的 SSI 需 要 日 


位 
口 大， 


行 各 和 的 所 有 客户 。 规则 可 以 
条 规则 表述 ， 对 Sony 的 股票 交易 应 外 部 结算 到 


确 说 明 这 一 


指示 可 以 相同 ， 也 可 以 不 


在 日 本 市 场 履行 的 股票 交易 应 本 行内 部 结算 到 


有 层级 关 


从- 吕 


在 日 本 市 场 履 行 的 所 


有 股票 交易 


可 


除 此 之 外 的 股 康 交 


易 都 在 本 投资 银行 内 部 结算 。 


实 
吉 算 


的 业务 人 员 


1. 理 解 业务 流程 


' 什 么 人 会 使 用 这 和 
。 交易 系统 采用 Se 
户 表 述 出 来 。 在 我 们 着 手 实现 DSL 之 前 ， 


先 投 冯 


里 是 潜在 的 用 户 ， 还 


IDSL? 首 


有 投资 银行 内 


其 次 还 


因为 它 


或 问题 准 


关系 ， 碍 找 的 


1，Sony 股 票 的 交易 


所 有 从 事 证 券 


先 来 看 看 SSI 在 交易 和 


AS 、 
算 流 程 


1 所 


E 确 而 精炼 
处 的 位 


也 站 领域 用 


为 了 透彻 理解 SSI 在 交易 和 结算 流程 中 扮演 的 角色 ， 请 看 图 8-10 和 图 8-11。 图 8-10 表 示 交 易 各 方 之 
间 的 基本 交易 及 结算 流程 。 


交易 有 一 个 
结算 过 程 


卖 出 证 券 


支付 现金 
承诺 交易 

结算 的 时 候 才 真正 转移 证 券 
和 现金 到 交易 各 方 的 相应 账户 


图 8-10 交易 和 结算 流程 。 交 易 是 在 买卖 双方 之 间 达 成 交换 证 券 和 现金 的 承诺 。 结 算是 对 交易 承 
诺 的 落实 ， 相 关 的 证 券 和 现金 被 实际 转移 到 对 方 的 账户 上 


图 8-11 说 明了 为 什么 没有 SSI 信 息 就 无 法 完成 交易 和 结算 流程 。 


(中 介 ) 
' 
Sa 
结算 过 程 涉及 的 各 方 
Pp 他 们 需要 知道 银行 和 账户 
本 信 息 才 能 进行 结算 
。 这 就 是 所 谓 的 SSI 
( 存 管 人 ) 


; 


结算 过 程 


图 8-11 ”完成 结算 过 程 需要 SSI。 中 介 及 受托 存 管 人 需要 掌握 银行 及 账户 信息 ， 才 知道 该 向 何 处 交 
收 证 券 和 现金 

我 们 对 什么 是 SSI 有 了 一 点 概念 之 后 ， 可 以 先 看 几 条 有 代表 性 的 SSI 规 则 样 例 ， 以 对 投资 经 理 希 望 
发 布 的 规则 有 个 直观 的 印象 。 

2. 将 要 实现 的 SSI 规 则 样 例 


为 了 叙述 简便 起 见 ， 这 里 只 涉及 一 小 部 分 简单 的 规则 ， 现 实 中 的 规则 其 实 复杂 得 多 。 


。 客 户 chase 在 JPN 市 场 履 行 的 对 ibpm 的 交易 内 部 结算 到 本 行 账户 a-345。 
客户 chase 在 JPN 市 场 履行 的 交易 内 部 结算 到 本 行 账户 q-123 。 

客户 nri 在 US 市场 履行 的 交易 外 部 结算 到 CITT 账户 qa-345 。 

客户 chase 对 sony 易 内 部 结算 到 本 行 账户 n-234 。 

客户 chase 发 生 自 ch-123 3 的 交易 内 部 结算 到 本 行 账户 n-675 。 

I 介 icici 在 JPN 场 履行 的 交 交易 ， 证 券 内 部 存 管 到 本 行 账户 us-123 ， 现 金 外 部 结算 到 BOJ 账 
户 b-954 。 (这 条 规则 对 现金 和 证 妆 券 分 别 指定 了 不 同 的 SSD) 


RE 


卫 深 


我 们 的 实现 依旧 从 文法 开始 。 有 了 第 8.3 节 运用 Scala 分 析 器 组 合子 设计 DSL 的 经 验 ， 代 码 清 单 8-7 的 
文法 定义 一 点 也 难 不 倒 我 们 。 


8.4.2 定义 文法 


完整 的 文法 定义 会 比较 长 ， 不 过 至 少 大 部 分 是 我 们 熟悉 的 写法 。 因 此 本 小 节 不 再 从 头 到 尾 讲解 ， 
而 是 诊 焦 到 其 中 几 个 特殊 之 处 。 代 码 清单 8-7 给 出 了 完整 的 文法 定义 。 


代码 清单 8-7 ”SSI_Ds1 的 文法 规则 


package trading.dsl 
import scala.util.parsing.combinator._ 
object SSI_Ds1 extends JavaTokenParsers 
with PackratParsers { 明 使 用 PackratParsers 


lazy val standing_rules = (standing_rule +) 


lazy val standing_rule = 
"settle" ~> "trades" ~> trade type_spec ~ settlement_spec 


lazy val trade_type_spec = @ 左 递归 和 依 序 选择 
trade_type_spec ~ ("in" ~> market <~ "market") | 
trade_type_spec ~ ("of" ~> security) | 
trade_type_spec ~ ("on" ~> "account" ~> account) | 
"for" ~> counterparty_spec 


lazy val counterparty_spec = 
"customer" ~> customer | "broker" ~> broker 


lazy val settlement_spec = 
settle all spec | settle cash_ security_separate_spec 


lazy val settle all spec = settle mode_spec 


lazy val settle cash security_separate_spec = 
repN(2, settle cash_ security ~ settle mode_spec) 


lazy val settle cash_ security = 
"safekeep" ~> "security" | "settle" ~> "cash" 


lazy val settle mode_ spec = 
settle external_ spec | settle internal spec 


lazy val settle external spec = 
"externally" ~> "at" ~> bank ~ account 


lazy val settle_internal spec = 
"internally" ~> "with" ~> "us" ~> "at" ~> account 


lazy val market = not(keyword) ~> stringLiteral 
lazy val security = not(keyword) ~> stringLiteral 
lazy val customer = not(keyword) ~> stringLiteral 
lazy val broker = not(keyword) ~> stringLiteral 
lazy val account = not(keyword) ~> stringLiteral 
lazy val bank = not(keyword) ~> stringLiteral 


lazy val keyword = 将 关键 字 建 模 为 分 析 器 
We 9 | i | 中 | no | 3 | "and" | "with" | 
"internally" | "externally" | "safekeep" | 
"security" | "settle" | "cash" | "trades" | 
"account" | "customer" | "broker" | "market" 


从 这 段 文法 中 


FE 意 针对 


， 你 能 看 出 来 为 什么 我 们 需要 用 到 packrat 分 析 器 吗 ? 请 六 


trade type_ spec 的 规则 @。 没 错 ， 这 个 地 方 出 现 了 左 递 归 和 依 序 选 择 ， 如 我 们 所 知 ， 
是 packrat 分 析 器 擅长 处 理 的 情况 。Packrat 分 析 器 因为 特别 采用 了 记忆 技术 ( 见 第 8.2.3 小 节 ) 
将 左 递归 文法 的 分 析 复杂 度 从 指数 时 间 降 低 为 线性 时 间 。 


在 Scala 语 言 里 实现 你 需要 做 几 件 事情 ， 请 看 表 8-4。 


表 8-4 在 Scala 语 言 里 把 分 析 器 变 成 packrat 分 析 器 的 步骤 


个 packrat 分 析 器 ， 


这 恰好 
人 台 巴 
月 2 


步骤 说 明 
温 代码 清单 8-7 的 SSI 分 析 器 执行 以 下 操作 : 

1 混入 PackratParsers 人 SSI_Dsl ne with PackratParsers { 

Scala 的 packrat 分 析 器 实现 依赖 于 “个 等 化 的 Reader 实现 ， 即 PackratReader 
BI 人 已 > 义 为 : 
的 具体 类 型 ， 作 为 对 分 析 器 处 Es ratRead 
£ % class PackratRea er [+T] (underlying: Reader[T]) extends Reader[T] { 

理 的 和 疹 入 关 型 nput 的 定义 PackratReader 对 内 部 的 Reader i 双 行 包装 ， 仕 其 上 洋 现 记 和 特性 有 于 我 们 继 
承 了 JavaTokenParsers ，Reader 所 读 入 的 元 素 类 型 已 被 定义 为 char 
不 必 把 所 有 的 分 析 器 都 变 成 packrat 分 析 器 。 对 于 那些 需要 记忆 特性 来 帮助 处 

3. 显 式 指定 返回 类 型 为 packratParser[...] 理 回溯 和 左 递归 的 分 析 器 ， 显 式 声明 其 返回 类 型 为 packratParser 。 我 们 将 在 
实现 语义 模型 时 见 到 这 样 的 例子 

除了 上 面 提 到 的 地 方 ，SSI_DSL 的 文法 定义 大 体 类 似 于 我 们 曾经 实现 过 的 交易 指令 处 理 DSL。 实 

现 好 的 分 析 器 还 要 有 了 驱动 程序 才能 真正 运转 起 来 ， 作 为 一 个 简单 而 实用 的 练习 ， 读 者 可 以 尝试 编 

写 一 个 驱动 程序 来 调用 分 析 器 并 运行 本 节 出 现 的 一 些 DSL 脚 本 。 

接 下 来 ， 我 们 讨论 如 何 为 SSI 的 领域 抽象 建立 语义 模型 。 

8.4.3 设计 语义 模型 

我 们 设计 的 领域 抽象 要 像 第 8.3.4 小 方 的 例子 ， 能 够 直接 通过 函数 施用 组 合子 插入 到 文法 规则 之 


'。 代表 整 个 问题 域 的 


个 档 


多 


象 被 命名 为 SSI_AST ， 
子 生 成 AST。 完 整 的 语义 模型 请 看 代码 清单 8-8。 


代码 清单 8-8 


SSI DSL 的 语义 模型 ( 即 AST 


为 我 们 希望 分 析 DSL 脚 本 的 时 候 就 能 够 按照 这 


package trading.dsl 
object SSI_AST { 
type Market = String 
type Security = String 
type CustomerCode = String 
type BrokerCode = String 
type AccountNo = String 
type Bank = String 


trait SettlementModeRule 

case class SettleInternal(accountNo: 
extends SettlementModeRule 

case class SettleExternal(bank: Bank, 
extends SettlementModeRule 


AccountNo) 


accountNo: AccountNo) 


trait SettleCashSecurityRule 
case object SettleCash extends SettleCashSecurityRule 
case object SettleSecurity extends SettleCashSecurityRule 


trait SettlementRule 
case class SettleCashSecuritySeparatel( 
set: List[(SettleCashSecurityRule, SettlementModeRule)]) 
extends SettlementRule 
case class SettleAll(sm: SettlementModeRule) extends SettlementRule 


trait CounterpartyRule 
case class Customer(code: CustomerCode) extends CounterpartyRule 
case class Broker(code: BrokerCode) extends CounterpartyRule 


case class TradeTypeRule(cpt: CounterpartyRule, 
mkt: Option[Market], sec: Option[Security], 
tradingAccount: Option[AccountNo]) 


case class StandingRule(ttr: TradeTypeRule, 
str: SettlementRule) 


case class StandingRules(rules: List[StandingRule]) 


结果 时 ， 要 用 到 这 些 类 ， 因 此 把 它们 列 在 这 里 便于 参照 。 


在 完整 的 文法 定义 里 穿插 处 理 AST 的 组 合子 ， 就 得 到 代码 清单 8-9。 这 段 代 码 最 后 生成 的 数 
StandingRules 就 是 我 们 的 语义 模型 


代码 清单 8-9 ”能 生成 语义 模型 的 完整 DSL 实现 


了 


4 


[e) 


这 上段 Scala 代 码 简 单 易 仅 ， ` 需 要 额外 的 解释 。 只 是 下 一 段 代码 通过 函数 施用 组 合子 来 处 


object SSI_Ds1 extends JavaTokenParsers 
with PackratParsers { 
import SSI_AST. 导入 AST 


lazy val standing_rules: Parser[StandingRules] = 
(standing_rule +) ^AA StandingRules 


lazy val standing_rule: Parser[StandingRule] = 
"settle" ~> "trades" ~> trade type_spec ~ settlement_spec 
和 {case l(t ~ s) => StandingRule(t, s) } 


lazy val trade_type_spec: PackratParser[TradeTypeRule] = @ 返回 类 型 为 PackratParser 
trade_type_spec ~ ("in" ~> market <~ "market") 
和 {case l(t ~ m) => t.copy(mkt = Some(m)) } | 
trade_type_spec ~ ("of" ~> security) 
和 人 {casel(t~ s) => t.copy(sec = Some(s)) } | 
trade_type_spec ~ ("on" ~> "account" ~> account) 
和 A {case l(t ~ a) => t.copy(tradingAccount = Some(a)) } | 
"for" ~> counterparty_spec 
AA{ case c => TradeTypeRule(c, None, None, None) } 


lazy val counterparty_spec: Parser[CounterpartyRule] = 
"customer" ~> customer 人 ^ Customer | 
"broker" ~> broker AA Broker 


lazy val settlement_spec = 
settle all spec | 
settle cash_security_separate_spec 


lazy val settle all spec: Parser[SettlementRule] = 
settle mode_ spec 人 ^ SettleAll 


lazy val settle cash_ security_separate_spec: Parser[SettlementRule] = 
repN(2, settle cash_ security ~ settle mode spec) ^^{ case 1: Seq[_] => 
SettleCashSecuritySeparate(1 map (e => (e. 1, e. 2))) } 


lazy val settle cash security: Parser[SettleCashSecurityRule] = 
"safekeep" ~> "security" AAA SettleSecurity | 
"settle" ~> "cash" AAA SettleCash 


lazy val settle mode_ spec: Parser[SettlementModeRule] = 
settle _ external spec | 
settle_internal_spec 


lazy val settle_external_spec : 
"externally" ~> "at" ~> bank ~ account 
AA{case b ~ a=> SettleExternal(b, a) } 


lazy val settle_internal_ spec: 


余下 


部 分 与 代码 清单 8-6 相 同 


Parser[SettlementModeRule] = 


Parser[SettlementModeRule] = 
"internally" ~> "with" ~> "us" ~> "at" ~> account ^ SettleInternal 


对 于 出 现 左 递 
PackratPa 
左 递归 


合子 的 沟通 


我 们 知道 ， 


和 


的 问题 


合 。 下 一 小 节 我 们 将 看 到 Scala 分 


单 归 
rser[TradeTypeRule] 


岂 准 闻 


分 析 器 组 合子 的 关键 是 画 


} 


数 式 编 


文法 的 trade_type_spec 规则 @ 


， 我 们 设置 


。 这 检 


它 的 领域 模型 


8.4.4 通过 分 析 器 的 组 合 来 扩展 DSL 语 义 


我 们 在 第 8.2 节 讲解 过 ， 
的 定义 表达 


把 这 村 


对 分 析 器 进行 


AS 


日 合 的 高 阶 画 数 。 那 么 ， 


1. 以 Monad 方 式 实现 定制 扩展 


如 果 我 们 翻 看 Scala 分 析 器 组 合子 库 的 源 人 


分 析 器 可 以 定义 成 接受 输入 
大 为 (Input => ParseResu1lt[T]) 。 而 名 
分 析 器 和 分 析 结 果 之 间 


三 ， 


羊 它 对 备 选 项 人 
会 按照 第 8.2.3 小 节 的 优化 方式 得 到 解决 。 


恨 有 成 就 感 吧 ? 一 个 完整 的 DSL 连同 
动 到 位 ，StandingRules 抽象 
甬 串 联 ， 按 照 各 自 


i 程 ， 而 
[器 对 扩展 DSL 的 贡献 。 


! 一 起 漂 


地 表达 了 领域 实体 的 模样 。 
的 层级 、 先 后 ， 协 力 建立 起 领域 模型 


回溯 分 相 


口 


其 返 


类 型 为 
i 的 时 候 


yo 


合子 范式 


分 析 纪 


将 会 


亮 地 呈现 在 我 们 面前 了 。 文 法 
所 有 的 分 析 器 经 过 画 数 施用 双 


用 上 记忆 技术 ， 


a 


上 去 生 


的 扩展 性 也 同 


和 纯 画 数 。 


结果 日 
全 


人 


样 组 合 的 


A 
和 和 


N 


样 源 E 


函数 之 间 的 组 


在 Scala 库 里 ， 我 们 


` 重复 等 方式 


呢 ? 


就 会 发 现 ParseResult[T] 和 Parser[+T] 都 是 


Monad 化 的 结构 。 换 言 之 ， 它 们 都 实现 了 标准 的 map 、flatMap 和 append 方法 ， 而 这 几 个 方法 
对 于 实现 单个 的 组 合子 有 很 大 的 帮助 ， 可 以 免 去 组 合 分 析 器 时 显 式 串 接 输 入 的 麻烦 。 我 们 在 对 代 
人 码 清 单 8-3 的 而 序 组 合子 实现 进行 改造 时 已 经 本 会 过 它们 的 作用 ，Monad 化 的 Parser 和 
ParseResult 配合 for-comprehension 产 生 了 非常 精炼 的 顺序 组 合子 实现 。 

如 果 能 在 分 析 器 的 基本 抽象 上 附加 一 层 组 合 语义 ， 那 么 规则 的 编排 将 具有 很 强 的 灵活 性 。 我 们 可 
以 串联 组 合子 ， 可 以 自 定义 在 意 的 变换 函数 去 变换 分 析 结 果 ， 还 可 以 在 已 有 分 析 器 上 添加 额外 
的 语义 。 举 个 例子 ， 我 们 可 能 希望 在 交易 指令 处 理 DSL 的 某 个 分 析 器 里 记录 下 分 析 的 过 程 。 那 么 
利用 针对 Par ser 抽象 定义 的 1og 组 合子 ， 我 们 很 容易 就 能 做 到 : 


lazy val line_item: 


LineItem(s, 


Parser[LineItem] = 


log(security_spec ~ buy_sell ~ price spec AAA {cases-~- b~ p => 
b, p) })("line_item") 


log 来 自 Parsers 特性 ， 它 被 实现 为 针对 一 个 现 有 分 析 器 的 装饰 器 ， 可 以 在 分 析 器 执行 前 后 记录 信 
息 。 更 详细 的 情况 请 参看 Scala 源 代码 。 

2. 把 分 析 器 设计 成 装饰 器 

我 们 在 代码 清单 8-6 里 ， 利 用 偏 函 数 施 用 组 合子 ， 在 分 析 器 里 添加 了 仪 在 特定 上 下 文 内 生效 的 验证 
功能 。 但 如 果 想 在 分 } 析 过 程 加 入 更 丰富 的 语 六 我 们 可 以 把 分 析 器 设计 成 装饰 男 一 个 分 析 器 的 


式 。 请 看 代码 清单 8-10 。 
代码 清单 8-10 ”一 个 带 验 证 功能 的 分 析 器 ， 在 分 析 器 上 加 入 了 领域 语义 


M4 


trait ValidatingParser extends Parsers { 
def validate[T](p: => Parser[T])( 
validation: (T, Input) => ParseResult[T]): Parser[T] = Parser ( 
in => p(in) match { 
case Success(x, in) => validation(x, in) 
case fail => fail 


ValidatingParser 对 一 个 已 有 的 分 析 器 进行 了 包装 ， 可 在 其 上 添加 任意 的 领域 语义 。 
validate 方法 的 参数 validation 是 一 个 闭 包 ， 如 果 我 们 的 DSL 需 要 增加 某 些 专 门 的 领域 语义 
的 话 ， 可 以 放 在 闭 包 里 。 稍 后 我 们 会 在 SSI_Ds1 分 析 器 ( 见 代 码 清单 8-7) 上 演示 这 种 了 


不 知道 你 还 是 否 记得 ， 本 章 前 面 的 插入 栏 里 提 到 过 ， 一 条 SSIH 以 分 别 对 现金 和 证 券 的 结算 作出 不 
同 的 指示 。 我 们 在 代码 清单 8-9 中 将 这 种 情况 建 模 为 下 面 的 分 析 器 : 
lazy val settle cash_ security_ separate_spec: Parser[SettlementRule] = 


repN(2, settle cash security ~ settle mode spec) ^^{ case 1: Seq[_] => 
SettleCashSecuritySeparate(1 map (e => (e. 1, e. 2))) } 


分 析 器 执行 后 得 到 一 个 SettlementRule 抽象 ， 该 case 类 在 我 们 的 语义 模型 里 是 这 样 定义 的 : 


case class SettleCashSecuritySeparate( 
set: List[(SettleCashSecurityRule, SettlementModeRule)]) 
extends SettlementRule 


,… ) 实现 了 。 但 仅 
仅 这 样 还 不 能 证 明 规 则 有 效 ， 我 们 还 必须 确定 ， 其 中 一 段 是 对 证 券 结算 的 指示 ， 男 一 段 是 对 现金 


这 条 规则 的 分 析 器 需要 验证 脚本 中 确实 含有 两 段 指示 ， 这 一 点 通过 repN(2， 


结算 的 指示 。 那 么 ， 应 该 怎么 做 呢 ? 
3. 接 入 装饰 器 


其 中 一 种 办 法 是 接 入 刚才 实现 的 ValidatingParser ， 通 过 它 来 执行 检验 SSI 规 则 有 效 性 的 领域 
验证 逻辑 。 下 面 的 代码 清单 对 相关 文法 规则 实施 了 改造 。 


代码 清单 8-11 ”以 装饰 器 形式 实现 的 ValidatingParser 


lazy val settle cash_ security_ separate_spec: Parser[SettlementRule] = 
Validate( 
repN(2, settle cash security ~ settle mode_spec) 
AA{ case 1: Seq[_] => 
SettleCashSecuritySeparate(1 map (e => (e. 1，e, 2))) } 
) { case (s, in) => { 
if ((s hassettleSecurity) && (s hasSsettleCash)) 
Success(s，in) @ 验证 通过 
else Failure( @ 验证 失败 
"should contain 1 entry for cash and 
security side of settlement", in) 


如 果 验 证 前 的 分 析 结 果 为 Success ， 且 得 到 的 List 内 含有 一 个 SettleSecurity 和 一 个 
SettleCash 对 象 ， 那 么 我 们 返回 Success 作为 验证 后 的 最 终结 果 @@; 否则 因为 没 能 通过 领域 验 
证 而 将 原来 的 成 功 结果 改 为 Failure @。 当 然 ， 为 了 让 ValidatingParser 对 我 们 的 文法 规则 
起 作用 ， 还 要 将 它 混入 到 原先 的 SSI_Ds1 分 析 器 中 : 


object SSI_Ds1 extends JavaTokenParsers 
with PackratParsers 
with ValidatingParser { 


~ 


//.. 


这 种 将 多 个 分 析 器 组 合 的 手法 是 Decorator 设 计 模 式 的 一 种 应 用 。 这 样 的 设计 可 以 保持 基本 抽象 
(也 就 是 例子 里 的 核心 分 析 器 ) 不 受 侵 染 ， 同 时 又 能 随时 根据 需要 插入 额外 的 领域 逻辑 。 


8.5 小 结 


Ne 


如 有 果 一 路 坚持 学 习 分 析 器 组 合子 ， 那 么 到 本 章 结 尾 这 里 ， 你 已 经 对 这 种 函数 式 编 程 在 语言 设计 领 
域 的 高 级 应 用 有 了 相当 程度 的 了 解 。 分 析 器 组 合子 可 以 说 是 最 为 简洁 的 一 种 外 部 DSL 设 计 手 段 。 
我 们 不 需要 为 了 实现 DSL 而 自行 设计 一 套 语 言 基础 设施 。 分 析 器 组 合子 技术 给 我 们 提供 一 种 内 部 
DSL 来 作为 设计 外 部 DSL 的 手段 。 我 们 可 以 一 边 在 模块 化 、 异 常 处 理 等 基本 服务 上 借用 宿主 语言 
的 基础 设施 ， 一 边 为 用 户 设 计 全 新 的 语言 。 


要 点 与 最 佳 实践 


分 析 器 组 合子 在 宿主 语言 的 语法 范围 内 提供 了 一 种 函数 式 色彩 浓厚 的 外 部 DSL 设 计 手 段 。 
用 分 析 器 组 合子 设计 出 来 的 外 部 DSL 往往 拥有 非常 精炼 的 实现 ， 因为 中 组 表示 法 和 类 型 失 
断 特 性 令 组 合子 形成 一 种 说 明 式 的 语法 。 
。 使 用 语言 提供 的 分 0 合子 库 ， 首 先 要 留意 库 中 是 否 提供 了 记忆 分 析 器 、packrat 分 析 器 
之 类 的 特殊 礼物 。 只 有 熟练 掌握 库 的 全 部 能 力 ， 我 们 才能 为 DSL 设计 效率 最 高 的 文法 。 


本 章 我 们 学 习 了 在 其 核心 语言 的 基础 上 ，Scala 如 何以 库 的 形式 实现 分 析 器 组 合子 功能 。 普 通 的 
Scala 函 数组 合 在 一 起 ， 就 能 让 我 们 用 极为 近似 EBNEF 的 表述 形式 来 定义 文法 规则 。Scala 库 提供 了 
非常 丰富 的 组 合子 供 我 们 处 理 语义 模型 ， 并 从 分 析 过 程 中 产生 定制 的 AST。 最 后 ， 人 了 可 
以 在 普通 自 顶 向 下 递归 下 降 分 析 器 无 能 为 力 时 发 挥 作用 的 packrat 分 析 器 。 此 外 我 们 还 通过 一 个 
Scala 实 现 示例 的 演练 ， 真 切 体验 到 packrat 分 析 器 的 高 效率 实现 。 
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第 三 部 分 DSL 开 发 的 未 来 趋势 


第 9 章 简短 探讨 我 们 在 基于 DSL 的 开发 中 观察 到 的 一 些 未 来 趋 劳 函数 式 编程 现在 使 用 得 越 来 越 广 

， 因 的 组 合 能 力 相 对 优 于 OO 抽象 。 我 认为 六 量 的 DSL 技 术 发 展 将 在 男 数 式 编程 的 
世界 里 酝酿 成 熟 。 当 开发 者 真正 认识 到 语法 分 析 器 组 合子 等 技术 的 威力 所 在 ， 一 定 会 有 更 多 人 被 
吸引 过 来 。DSL 语 言 工作 因为 其 完整 的 开发 和 维护 能 力 ， 也 将 获得 广阔 的 前 景 * 本 部 分 还 将 讨 
论 DSL 版 本 维 扩 的 重要 话题 ， 借鉴 书 中 的 一 些 实践 ， 你 可 以 帮助 用 户 平稳 度 过 DSL 语 法 演变 的 考 
验 。 总 之 ， 揭 示 DSL 世 界 中 的 种 种 发 展 趋势 ， 正 是 本 书 第 三 部 分 即 第 9 章 的 唯一 要 和 于 。 


第 9 章 展望 DSL 设 计 的 未 来 


本 章 内 容 


回顾 本 书 的 全 部 旅程 
DSL 开 发 正 获得 越 来 越 广泛 的 支持 
编写 DSL 的 工具 越 来 越 完善 

DSL 还 在 继续 向 前 演化 


祝贺 你 ! 这 里 已 经 是 本 书 的 最 后 一 章 了 “。 我 们 讨论 着 各 种 基于 DSL 的 开发 范式 ， 不 觉 走 过 了 长 长 
的 旅程 。 我 们 为 了 全 方位 地 探讨 DSL 设 计 而 使 用 了 好 几 种 语言 ! 大 部 分 是 JVM 语 言 。 这 些 语 
言 都 是 精心 挑选 的 ， 兼 顾 了 静态 类 型 和 动态 类 型 语言 ， 面向 对 象 编程 和 画 数 式 编程 。 本 章 我 们 将 
考察 DSL 开 发 领域 一 些 正在 被 更 多 人 认同 ， 有 可 能 成 为 主流 趋势 的 技术 。 我 们 作为 DSL 开 发 的 实 
践 者 ， 需 要 留意 这 些 新 动向 ， 其 中 有 一 些 也 许 会 成 长 为 实用 的 开发 技术 。 


DSL 的 开发 中 有 几 个 领域 的 发 展 吸 引 了 DSL 设 计 者 们 的 关注 ， 很 值得 我 们 讨论 。 图 9-1 是 本 章 的 路 
线 图 ， 我 们 将 在 旅途 的 最 后 一 程 中 学 习 这 些 特性 。 


汪 。 


语言 层面 的 支持 越 来 越 充 分 
。 元 编程 

。 S 表 达 式 

。 分 析 器 组 合子 


其 他 方面 的 工具 支持 


DSL 工 作 台 DSL 的 发 展 和 演变 


图 9-1 本 章 路 线 图 


本 章 的 讨论 从 第 9.1 节 的 语言 表现 力 说 起 ， 这 个 领域 的 发 展 日 新 月 异 。Groovy、Ruby、Scala、 
Clojure 语 言 的 表现 力 都 远 远 超越 了 Java， 而 且 还 在 注重 与 使 用 者 交流 的 前 提 下 ， 不 断 地 向 前 发 
展 。 在 这 些 语 言 当 中 ，Groovy、Ruby、Clojure 等 动态 语言 已 经 文 持 强大 的 元 编程 ， 甚 至 连 有 的 静 
态 类 型 语言 也 添加 了 元 编程 能 力 。 即 使 我 们 没有 马上 专注 于 元 编程 ， 出 于 DSL 开 发 人 员 的 专业 嗅 


HO 


觉 ， 也 应 该 时 时 关注 这 方面 的 进展 ， 知 道 各 种 元 编程 特性 正在 改变 着 当今 的 编程 语言 ， 正 在 创造 
一 个 更 适合 建设 DSL 的 环境 。 


分 析 器 组 合子 是 DSL 实 现 技术 的 一 个 进步 。 具 备 函 数 式 编程 能 力 的 语言 将 会 越 来 越 多 地 把 分 析 器 
合子 库 当成 语言 的 标准 配备 。 分 析 器 组 合子 也 是 第 9.1 节 的 话题 之 一 。 


接着 我 们 要 说 到 DSL 工 作 台 ， 这 种 开发 方式 有 可 能 成 为 今后 DSL 开 发 的 常态 。 第 9.3 节 介绍 现代 
IDE 提 供 的 其 他 辅助 工具 支持 。 最 后 一 节 我 们 探讨 DSL 的 演进 ， 学 习 怎 样 有 计划 地 安排 DSL 的 成 长 
步调 ， 谨 慎 维 护 语言 的 向 后 兼容 。 


如 有 果 说 前 面 的 章节 谈 的 是 DSL 设 计 的 现状 ， 那 么 这 一 章 色 画 的 是 DSL 的 未 来 。 我 们 要 为 明天 做 好 
准备 ， 因为 明天 马上 就 会 到 来 。 


9.1 语言 层面 对 DSL 设 计 的 支持 越 来 越 充分 


DSL 的 意义 在 于 它 描述 建 模 领域 的 表达 能 力 。 假 如 我 们 对 一 个 会 计 系统 建 模 ， 必 然 希望 API 在 交流 
使 用 借方 、 贷 方 、 会 计 账面 、 分 类 帐 、 日 记 帐 这 样 的 专业 语汇 。 这 些 术语 构成 了 模型 中 的 名 词 
实体 ， 承 载 着 问题 域 的 一 部 分 核心 概念 。 除 了 名 词 ， 问 题 域 中 还 有 动词 ， 同 样 需要 我 们 用 相同 的 
表现 力 水 平 表 达 出 来 。 还 记得 第 1 章 那个 作为 引子 的 咖啡 店 的 例子 吗 ? 店员 之 所 以 能 准确 无 误 地 送 
上 我 们 的 点 单 ， 是 因为 我 们 说 的 是 她 能 理解 的 语言 。 表 达 的 方方面面 都 要 与 建 模 的 问题 域 形成 共 
鸣 。 请 回顾 一 下 第 3 章 的 这 段 Scala 代 码 : 


是 过 


withAccount(trade) { 
account => { 
settlel( 
trade using 
account .getClient 

.getStandingRules 
.filter(_.account == account) 
.first) 

andThen journalize 


cm 
cm 


这 里 的 DSL 来 自 证 券 交 易 系 统 。 可 以 看 出 ，DSL 语 法 很 好 地 仿效 了 该 领域 里 的 名 词 和 动词 。Scala 
支持 高 阶 画 数 ， 因此 我 们 可 以 对 领域 行为 ( 动 调 ” 和 辐 域 对 象 名词》 一 视 向 仁 ， 用 相同 的 方式 
来 建 模 。 这 种 建 模 手段 上 的 统一 对 语言 表现 力 有 正面 的 影响 。 


读者 也 许 会 疑惑 我 为 什么 到 了 最 后 一 章 ， 还 要 把 “表现 力 ” 这 个 已 经 贯 容 全 书 进行 讨论 的 主题 ， 又 
重新 强调 一 损 。 A ed 限制 其 表现 力 
的 只 有 使 用 者 的 创造 力 而 已 。 只 要 善 用 元 编程 、 函 数 式 控制 结构 等 方面 的 惯 再 加 上 一 个 足 
够 灵活 的 类 型 系统 ， 足 以 让 程序 员 用 领域 本 身 的 语言 来 描述 领域 问题 。 林 节 我 们 多 这 从 当前 的 一 
些 语言 如 何 拓展 其 表现 力 ， 从 而 成 为 DSL 开 发 的 中 坚 力量 的 。 


9.1.1 对 表现 力 的 不 懈 追 求 


在 这 个 诸多 新 语言 争 相 亮相 的 时 代 ， 我 们 看 到 ， 语 言 给 我 们 提供 了 越 来 越 充 分 的 支持 去 实现 丰富 
多 彩 的 DSL 语 法 设计 。 本 书 用 了 很 多 章 的 篇 幅 来 讨论 其 中 的 Ruby、Groovy、Scala 和 Clojure 语 言 
详细 介绍 了 它们 的 设计 能 力 。 本 节 我 们 打算 简要 介绍 其 他 一 些 语言 的 概况 。 这 样 做 的 主要 目的 不 
是 为 了 探讨 语言 细节 ， 而 是 为 了 让 你 感受 现在 正在 发 生 的， 众多 语言 为 了 提高 自身 与 人 交流 的 能 
力 而 付出 的 不 懈 努 力 。 从 图 9- 2 可 以 看 出 一些 主流 诺言 的 演变 逐 络 ， 它们 随 着 时 间 推 沉 ， 进 化 成 了 
另 一 种 表现 力 更 高 的 语言 。 


表现 力 水 平 


。 更 强 的 抽象 能 
。 垃圾 收集 


和 Groovy/Ruby/ 
Scala/Clojure 


更 好 的 抽象 能 力 
。 。 函 数 式 编程 
。 表 达能 力 出 色 的 语法 
。 多样 化 的 控制 结构 


图 9-2 编程 语言 的 表现 力 演进 过 程 


表现 力 充沛 的 编程 语言 可 以 帮助 弥合 问题 域 与 解答 域 之 间 的 鸿沟 。 在 不 支持 高 阶 函 数 的 OO 语言 
里 ， 我 们 只 好 把 对 象 强 扭 成 函数 子 (functor) ， 才 得 以 对 领域 动作 建 模 。 显 然 这 样 的 间接 手段 会 
直接 地 反映 在 DSL 设 计 结 果 上 ， 造 成 非 本 质 复杂 性 (对 非 本 质 复 杂 性 的 解释 见 附录 A) 。 当 函数 不 
是 次 一 等 的 象 手段 时 ，DSL 将 去 除 那些 间接 而 产生 的 干扰 成 分 ， 变 得 更 干净 ， 更 容易 被 客 
户 接 受 。 

这 些 年 里 ， 由 于 编程 语言 表现 力 的 提高 ，DSL 开 发 实践 也 随 之 发 生 了 变化 。 即 使 在 C 语 言 流行 的 年 


代 ， 我 们 也 一 样 做 着 编写 领域 规则 的 工作 ， 只 不 过 当时 要 在 一 个 低 得 多 的 抽象 层次 上 操作 。 图 9-3 
列举 了 这 方面 的 进步 。 


。 模块 化 的 代码 。 更 好 的 抽象 


。 通过 类 型 别名 赋予 有 意义 的 命名 。 较 纯粹 的 面向 对 象 
。 函数 。 较 低 的 非 本 质 复杂 性 
。 宏 (简陋 ) 
| C++ | Groovy、 Ruby、 Scala、 Clojure 
Cc | Java 
。 更 好 的 抽象 各 
。 简陋 的 元 编程 能 力 。 更 好 的 抽象 
。 面 向 对 象 编程 能 力 。 强大 的 元 编程 能 力 


。 面向 对 象 及 函数 式 编程 能 力 
。 更 简洁 、 更 有 表现 力 的 语法 
。 分 析 器 组 合子 


图 9-3 用 于 DSL 开 发 的 编程 语言 一 直 在 演进 着 ， 语 言 特性 有 了 很 大 的 进步 

很 多 语言 特性 已 经 处 于 成 熟 阶段 ， 但 也 有 一 些 正 处 于 争取 被 更 多 语言 采纳 的 发 展 阶段 。 下 面 
的 三 个 小 节 将 详 壕 其 中 三 种 逐渐 在 DSL 开 发 生态 中 占据 一 席 之 地 的 重要 特性 。 第 一 种 是 已 经 在 动 
态 语言 中 普及 的 元 编程 。 由 于 元 编程 在 DSL 设 计 方面 的 潜力 ， 在 众多 加 入 元 编程 机 制 的 语言 当 


!， 其 至 有 一 些 属于 静态 类 型 语言 。 
9.1.2 元 编程 的 能 力 越 来 越 强 


观察 最 近 发 展 起 来 的 语言 ， 我 们 可 以 发 现 它们 的 元 编程 能 力 在 不 断 提高 。Ruby 和 Groovy 提 供 运 行 
时 元 织 得 。， 这 在 第 2 章 、 第 3 章 、 第 4 章 、 第 5 章 已 经 有 很 大 篇 幅 的 论述 ; JVM 上 的 Lisp 语 言 变种 


Clojure 提 供 的 编译 时 元 编程 ， 可 以 设计 出 表现 力 充 沛 的 DSL， 又 完全 没有 运行 时 的 性 能 负担 。 要 
想 在 DSL 上 有 所 建树 ， 必 须 精通 手头 语言 的 元 编程 技术 。 


静态 类 型 语言 Haskell ( 见 第 9.6 节 文献 [10]) 和 Ocaml ( 见 第 9.6 市 也 文献 [11]) 已 经 着 手 将 元 编程 融入 
到 语言 的 基础 设施 。Template Haskell 是 Haskell 语 言 的 扩展 ， 它 在 语言 中 增加 了 编译 时 元 编程 设 

施 。 传 统 上 用 Haskell 语 言 设 计 DSL 时 ， 一 般 会 采用 内 部 DSL 的 实现 方式 。 开 发 者 希望 的 写法 和 
Haskell 允 许 的 写法 之 间 往 往 不 一 致 。 而 在 编译 时 元 编程 技术 下 ， 我 们 可 以 按 实 际 需要 去 设计 语 
法 ， 由 语言 设施 将 之 转换 为 适当 的 Haskell AST 结 构 ， 其 机 制 类 似 于 Lisp 的 宏 。 


众多 语言 大 力 发 展 元 编程 技术 ， 直 接 证 明 DSL 下 在 成 为 主流 。 下 一 小 节 我 们 讲述 S 表 达 式 的 特性 ， 
它 有 潜力 在 大 多 数 时 候 取代 XML 充当 数据 载体 。 


9.1.3 S 表 达 式 取代 XML 充当 载体 


有 些 表达 形式 灵活 的 语言 ， 如 Clojure (或 Lisp) ， 提 供 了 S 表 达 式 (s-expressions) 特性 ， 可 以 用 
代码 来 表示 数据 。 现 在 的 企业 系统 经 常 大 量 使 用 XML 来 描述 配置 数据 ， 并 冠 以 DSL 数 据 建 模 的 名 
头 。 应 用 中 的 XML 结构 经 过 适当 工具 的 后 续 解 析 和 处 理 ， 能 生成 可 直接 被 程序 使 用 的 产物 。 这 种 
设计 除了 XML 难 以 阅读 的 问题 之 外 ， 表 达 高 阶 结构 如 条 件 结构 的 能 力也 有 欠缺， 充其量 只 是 S 表 
达 式 的 拙劣 替代 品 。 


我 普 经 做 过 一 个 项 目 ， 项 目 中 通过 XML 消息 来 在 多 处 部 署 之 间 传 输 实 体 。 例 如 一 个 Account 对 象 
可 以 表示 为 下 面 的 XML 片段 : 


<account> 
<no>a-123</no> 
<name> 
<primary>John P.</primary> 
<secondary>Hughes R.</secondary> 
</name> 
<dateofOpening>20101212</dateofOpening> 
<status>active</status> 
</account> 


XML 格式 的 消息 要 先 经 过 解析 ， 转 换 成 合适 的 数据 结构 后 才能 供 程序 使 用 。 我 们 不 妨 试 试 Clojure 
提供 的 S 表 达 式 ， 这 样 代码 一 下 子 就 能 变 得 清楚 而 简洁 : 


(def account 

{no 123, 
name {primary "John P." secondary "Hughes R."}, 
date-of-opening "20101212", 
status ::active }) 


与 等 价 的 XML 相 比 ， 新 的 片段 不 但 语法 精简 ， 语义 也 更 丰富 ， 而 且 是 一 个 可 以 执行 的 Clojure 数 据 
模型 。 我 们 不 需要 筹划 额外 的 机 制 去 解析 它 的 结构 ， 也 不 需要 把 它 转换 成 运行 时 制品 ， 这 个 模型 
直接 就 能 在 Clojure 运 行 时 中 执行 。 我 戏称 这 种 结构 是 可 执行 的 XML 。 从 DSL 的 角度 看 ， 它 不 但 上 
原来 的 XML 版 本 优秀 得 多 ， 而 且 语 言 定义 仅仅 使 用 了 编程 语言 本 身 的 特性 。 今 后 随 着 基 ] DSL 的 
开发 日 益 成 熟 ， 这 种 数据 即 代 码 的 范式 也 会 用 得 越 来 越 普 遍 。 


越 来 越 普遍 的 还 有 分 析 器 组 合子 ， 这 一 波 趋 势 主要 体现 在 醒 数 式 语言 当中 。 我 们 在 第 8 章 见识 过 分 
析 器 组 合子 优秀 的 DSL 设 计 能 力 ， 下 面 再 用 一 个 小 节 说 说 它 的 发 展 情况 。 


9.1.4 分 析 器 组 合子 越 来 越 流 行 


我 们 在 第 8 章 学 过 ， 用 分 析 器 组 合子 来 设计 外 部 DSL 时 ， 可 以 不 借助 任何 外 部 工具 ， 宿 主语 言 的 一 
个 库 就 已 经 能 满足 全 部 要 求 。 随 着 画 数 式 编程 的 普及 ， 我 们 将 会 看 到 分 } 析 器 组 合子 库 的 爆炸 性 增 
长 。Gilad Bracha 开 发 中 的 新 语言 和 ( 见 9.6 方 文献 [4]) 拥有 一 个 特别 丰富 的 分 析 器 组 合子 
库 ， 比 我 们 用 过 的 Scala 分 析 器 组 合子 能 更 好 地 解 灶 文法 规则 和 语义 模型 。 很 多 现存 语言 如 F# ( 见 
、JavaScript ( 见 9. 6 节 文 献 [6]) 、Scheme ( 见 9.6 市 文献 [7]) ， 也 都 在 发 展 自己 的 分 

馈 组 合子 库 。 


分 析 器 组 合子 以 一 种 描述 性 的 方式 来 定义 DSL 语 法 ， 外 观 近似 于 EBNF 规 则 。 虽然 我 们 用 分 析 器 生 
成 器 也 能 写 出 类 似 EBNE 的 描述 性 文法 规则 ， 但 分 析 器 组 合子 完全 在 宿主 语言 的 范围 内 运作 ， 因 此 
可 以 充分 利用 宿主 语言 的 其 他 特性 。 宿 主语 言 的 支持 将 站 池 助 我 人 ] 把 语义 动作 从 文法 定义 中 解脱 出 
来 ， 从 而 获得 结构 清晰 的 DSL 实 现 。 


除了 常见 的 文本 形式 的 DSL，DSL 开 发 还 存在 男 一 个 抽象 层次 更 高 的 方法 流派 ， 就 是 DSL 工 作 台 
(DSL workbench) 。 第 7 章 讨 论 过 的 Xtext 就 是 这 种 DSL 开 发 范式 的 一 个 代表 。 将 来 ，DSL 工 作 台 
很 有 可 能 从 根本 上 改变 我 们 对 DSL 的 认识 


9.2 DSL 工 作 台 


高 屋 建 领地 说 ，DSL 设 计 是 一 种 在 所 处 环境 的 束缚 ， 尺 可 能 建立 最 具 表 现 力 的 API 的 一 种 实践 活 
动 。 对 于 内 部 DSL， 我 们 受到 宿主 语言 的 限制 。 对 于 外 部 DSL， 我 们 自行 设计 的 语法 局 限于 我 们 
选用 的 分 析 器 生成 器 或 组 合子 。 无论 志和 情况， 我 们 谈论 的 仍然 是 文本 形式 的 DSL。 不 管 我 们 提 
供给 用 户 什么 样 的 界面 ， 它 的 呈现 形式 总 是 一 种 基于 文本 的 结构 。 我 们 尽 可 能 为 用 户 改善 API 的 表 
现 力 ， 但 只 要 API 是 用 某 种 语言 实现 的 ， 用 户 终究 不 得 不 承担 语言 运行 时 强加 的 规则 和 限制 。 


近年 出 现 的 男 一 派 思 路 不 再 把 基于 文本 的 DSL 开 发 范式 当做 一 件 理 所 当然 的 事情 。 举 个 例子 ， 假 
如 我 是 数据 分 析 专家 ， 那 么 我 会 布 望 天 气 预报 系统 的 计算 引擎 里 内 舱 Excel 安 。 因 为 对 我 来 说 ， 电 
子 表格 才 是 最 符合 直觉 的 计算 逻辑 表达 方式 。 而 在 一 个 单纯 以 文本 为 设计 手段 的 DSL 世 界 里 ， 我 
们 绝 无 可 能 跳出 语言 的 榨 模 ， 组 织 起 像 电 子 表 格 、 图 标 引 警 这 样 的 高 阶 结 构 。 


Eclipse Xtext 〈 见 第 7 章 ) 等 框架 朝 着 这 个 方向 前 进 了 一 小 步 。 它 用 元 模型 取代 纯 文本 格式 来 保存 
DSL， 而 元 模型 可 以 被 投射 到 Eclipse 编辑 器 。 编 辑 器 具备 语法 高 亮 ~ 代码 补 全 等 功能 。 这 类 框架 
支持 的 抽象 层次 越 高 ， 就 越 便于 最 终 用 户 自己 建立 、 编 辑 和 维护 DSL。 而 协助 最 终 用 户 建立 、 编 
辑 和 维护 DSL 的 工具 ， 就 叫做 DSL 工 作 台 。 


9.2.1 DSL 工 作 台 的 原理 


我 们 曾经 在 第 7 章 用 Eclipse Xtext ( 见 第 9.6 市 文献 [1]) 生成 了 一 个 专用 的 DSL 工 作 台 。JetBrains 
Meta-Programming System (MPS) ( 见 第 9.6 节 文献 [2]) 和 Intentional 出 品 的 Domain Workbench 
( 见 第 9.6 市 文献 [3]) 也 是 类 的 工 。 它 们 都 放弃 了 单纯 基于 文本 的 编程 方式 ， 改 用 AST 等 高 阶 
结构 来 作为 基本 的 存储 单元 


作 台 的 使 用 者 不 直接 编写 文本 形式 的 程序 ， 而 是 通过 一 和 DE 叫做 投射 式 编辑 器 

(projectional editor) 来 操作 DSL 的 结构 。DSL 工 作 台 通常 可 以 和 一 些 工 具 ， 如 Microsoft Excel 无 颖 
集成 ， 使 我 们 能 够 调动 这 些 工 具 去 设计 DSL 的 语法 和 语义 。 我 们 看 天 昌 建立 的 要 汪 人 为 元 数据 
保存 在 工作 台 的 仓库 里 ， 对 应 着 DSL 里 的 高 层次 抽象 。 


如 果 需 要 ， 我 们 还 可 以 从 工作 台 仓 库 里 保存 的 元 模型 生成 指定 语言 的 代码 。 这 样 的 开发 方式 不 正 
是 领域 用 户 的 梦想 吗 ? 不 正 是 我 们 原本 赋予 DSL 的 价值 诉求 吗 ? 领域 工作 台 也 许 将 成 为 领域 专家 
和 程序 开发 者 的 理想 交汇 点 。 图 9-4 说 明了 领域 工作 台 对 DSL 实 现 的 全 程 支持 。 


A 


A 


> 


使 用 工作 台 提 供 
的 投射 式 编辑 器 可 被 编辑 、 维 护 
及 版 本 控制 


SEE 家 使 用 Excel、PowerPoint 


和 其 他 结构 来 设计 模型 可 被 转换 生成 供 执 行 的 编 
程 语 言 结 构 ( 类 似 J: avV a) 


图 9-4 DSL 工 作 台 为 DSL 实 现 的 全 部 生命 期 提供 支持 。 领 域 专家 打交道 的 对 象 是 像 Microsoft 
Excel 这 样 的 高 层次 结构 。 工 作 台 不 直接 保存 程序 文本 ， 而 是 保存 元 数据 。 元 数据 可 以 被 投射 到 一 
种 智能 的 编辑 器 ， 叫 做 投射 式 编辑 器 上 。 我们 通过 这 种 编辑 器 来 编辑 元 数据 、 处 理 其 版 本 变迁 以 
及 其 他 方面 的 管理 维护 。 工 作 台 还 拥有 生成 编程 语言 《如 Java) 代码 的 设施 


在 更 高 的 抽象 层次 上 编程 ， 这 是 本 书 反 复 论 述 的 一 个 主题 ， 而 且 已 经 成 为 目前 存在 的 几 种 DSL 工 
作 台 的 原则 共识 。 它 们 之 间 的 差别 主要 体现 在 抽象 的 表达 上 。 表 9-1 总 结 了 部 分 工作 台 产 品 在 几 个 
方面 的 差别 。 

表 9-1 DSL 工 作 台 产品 的 特性 差异 


特性 工作 台 产 品 之 间 的 差别 
抽象 语法 的 表达 及 定义 方式 抽象 语法 可 以 用 抽象 语法 树 或 者 图 来 表达 ， 也 可 以 定义 成 元 模型 或 文法 描述 形式 


元 模型 的 组 合 很 多 工作 台 都 支持 用 若干 文法 或 元 模型 组 合 起 来 作为 一 种 抽象 语法 的 表达 载体 
变换 能 Xtext 等 工作 台 支 持 基于 模板 的 代码 变换 ，MPS 本 身 直接 支持 从 模型 到 模型 的 变换 
二 大 多 数 工作 台 本 身 即 具备 完善 的 、 可 定制 的 [DE 支持 ， 为 DSL 作 者 提供 语法 高 亮 、 代 码 补 全 


等 上 下 文 相关 的 协助 功能 


2 FE 台 绝 对 是 一 件 值得 放 进 包 里 随时 备用 的 好 工具 。 那 么 我 们 就 来 说 说 使 用 DSL 工 作 台 有 哪 


9.2.2 使 用 DSL 工 作 台 的 好 处 
不 同 的 工作 台 在 不 同 的 方面 各 有 千秋 ， 但 所 有 的 DSL 工 作 台 都 具有 以 下 优点 。 
。 分 离 了 DSL 界 面 的 关注 点 和 DSL 实 现 的 关注 点 。 


。 用户 可 与 高 层次 结构 直接 互动 。 这 些 结构 比 一 般 文 本 型 编程 语言 中 所 见 的 结构 层次 更 高 。 因 
此 ， 对 于 没有 编程 背景 的 领域 用 户 来 说 ， 工 作 台 方式 下 的 DSL 开 发 更 有 吸引 力 。 


。 为 DSL 驱 动 的 开发 方式 全 程 提 供 优 厚 的 环境 。 
。 较 容易 完成 多 种 DSL 的 组 合 。 
1 DSL 工 作 台 还 处 在 婴儿 时 期 。 虽 然 这 项 技术 前 景 很 好 ， 也 已 经 推广 了 一 段 时 


但 开发 商 还 需要 解决 好 一 些 问题 才能 让 DSL 工 作 台 成 为 主流 。 其 中 最 主要 的 一 个 问题 是 “厂商 
所 和 ， (vendor lock-in) 。DSL 工 作 台 有 以 下 几 个 最 为 重要 的 方面 : 


FT 


代码 生成 器 。 


多 式 ; 


这 几 个 方面 全 都 被 锁定 到 相应 的 框架 上 。 当 我 们 无 法 脱离 一 个 特定 平台 来 建 模 DSL 时 ， 顾 虑 在 所 
难免 。 这 种 锁定 意味 着 为 了 在 项 目 里 实现 DSL， 开 发 团队 又 不 得 不 学 习 一 套 专门 的 工具 。DSL 工 


作 台 即使 有 这 样 的 缺点 ， 也 仍然 是 一 种 很 有 吸引 力 的 技术 范式 ， 值 得 我 们 继续 关注 它 的 未 来 发 
革 O 

除了 寄 望 工作 台 提 供 完整 的 DSL 开 发 环境 外 ， 我 们 还 寻求 加 强 IDE 对 DSL 开 发 的 工具 文 持 ， 以 改善 
眼下 的 状况 。 

9.3 其 他 方面 的 工具 支持 

如 前 所 述 ，DSL 工 作 台 是 首要 的 DSL 设 计 工 具 。 那 么 ， 当 我 们 不 使 用 工作 台 候 ， 还 能 指望 从 开发 
环境 得 到 什么 支持 呢 ? 


我 们 搜寻 的 目光 首先 落 在 IDE 上 ， 显然 这 里 最 有 可 能 找到 适用 于 DSL 编 写 的 先进 功能 。 通 用 语言 的 
备 


编程 活动 可 以 从 IDE 那 里 获得 


DSLY 


局 程 也 完全 应 该 获 


个 功能 完善 的 编辑 器 ， 具 


语法 高 亮 、 代 人 码 补 全 等 诸多 编辑 功能 。 


得 类 似 的 帮助 。 例 如 ， 如 果 我 们 用 Groovy 编 写 金融 中 介 系 统 的 内 部 DSL， 


Se 户 输入 的 货币 代码 ， 也 会 希望 把 自动 代码 补 全 功能 应 用 在 系统 文 持 的 金融 

很 多 IDE 虽 然 还 不 具备 一 套 完善 的 DSL 工 作 台 ， 但 已 经 开始 提供 语法 高 亮 和 目 动 补 全 这 个 层面 的 工 

具 。 现 在 的 IDE 孝 兴 E 备 了 插件 染 构 ， 而 且 都 是 可 扩展 的 。 我 们 可 以 自行 插入 代码 去 实现 语法 高 亮 、 

尺码 补 全 等 功能 ( 见 9.6 节 文献 [8] 和 文献 [9]) 

Oniraptions for programming 博客 上 有 篇 文章 ( 见 9.6 节 文献 [8]) 描述 了 一 种 在 Groovy-Eclipse 平 
台 上 开发 DSL 的 插件 ， 开 发 者 可 以 自己 定制 实现 语法 高 亮 的 功能 。Groovy-Edlipse 系 列 组 件 以 接 

式 提 供 一 个 扩展 点 ， 我 们 可 以 通过 实现 该 接口 来 定制 实现 语法 高 亮 的 关键 字 。IntelliJ IDEA 也 包 


含 类 似 可 定制 的 Groovy DSL 
。 图 9-5 粗 略 说 明了 如 何 


[9]) 


图 9-5 


支持 功能 ， 其 插件 可 实现 对 方法 和 属性 的 自动 补 全 〈 见 第 9.6 节 文献 
在 IDE 的 插件 架构 下 为 定制 的 DSL 实 现 语法 高 亮 功能 。 


插件 


| 
| 


| 


了 定制 的 语法 高 


> 项 四 2 pe | », [pd 
IDE 核 必 亮 功 能 插件 


在 IDE 核 心 之 外 ， 我 们 可 以 实现 自己 的 插件 。 我 们 为 DSL 设 计 的 语法 高 亮 插 件 和 别 的 插件 
一 起 成 为 IDE 的 一 部 分 


直 以 来 ， 我 们 都 围绕 着 DSL 的 开发 展开 讨论 ， 而 在 当 前 的 DSL 环 境 下 ， DSL 版 本 的 有 序 演变 是 另 
不 可 忽略 的 重要 议题 。 因 此 下 一 节 我 们 将 粗略 探讨 一 下 应 该 怎样 合 
使 得 DSL 的 多 个 版 本 可 以 共存 。 


> 


规划 DSL 的 成 长 轨迹 ， 


9.4 DSL 的 成 长 和 演化 


我 们 在 应 用 开发 实践 中 大 都 使 用 过 DSL。 它 的 主要 用 途 是 对 系统 中 频繁 改变 的 组 件 (比如 配置 参 
2 进行 建 模 。 而 在 面临 改变 的 时 候 ， 应 该 按照 什么 样 的 原则 去 指导 DSL 的 演化 这 


>E 


需要 我 们 去 思考 完 


的 演化 策略 ° 
9.4.1 DSL 的 版 本 化 


DSL 的 使 月 


用 


但 


不 


用 户 ， 


善 的 问题 。 我 们 甚至 在 部 署 DSL 的 第 一 个 版 本 之 前 ， 就 应 该 考虑 好 DSL 


情况 决定 了 我 们 需要 的 版 本 化 策略 。 如 果 我 们 的 DSL 只 有 一 小 群 固定 的 、 联 系 紧密 的 
那么 不 规定 专门 的 版 本 化 策略 也 是 可 以 的 。 不 管 是 修正 错误 还 是 增加 需求 ， 我 们 可 以 随时 
新 的 版 本 替换 旧 的 版 本 ， 只 要 随 新 版 本 附 上 一 份 标 出 向 后 兼容 事项 的 简单 说 明 足 侨 。 


如 果 不 只 一 组 用 户 在 使 用 我 们 的 DSL 呢 ? 那 就 必须 规划 增 量 式 的 版 本 化 策略 了 。 由 于 不 是 所 有 
的 用 户 都 对 新 版 本 感 兴趣 ， 所 以 我 们 要 同时 采取 以 下 两 条 策略 : 


。 代码 仓库 的 版 本 管理 体系 必须 能 够 同时 兼顾 多 个 发 行 版 的 维护 工作 ; 


。 必须 建立 专门 的 部 署 脚本 ， 且 该 脚本 要 能 够 部 署 DSL 的 多 个 版 本 。 


管 采取 什么 样 的 策略 ， 


1 


一 小 市 我 们 将 针对 版 本 化 过 程 中 出 现 的 各 种 难题 ， 讨 论 在 设计 阶段 可 以 采取 的 一 些 措 施 。 


遭遇 这 些 困难 : 


。 处 理 向 后 兼容 ; 
。 照顾 那些 不 


至 少 以 


可 题 是 必须 解决 好 的 ， 因 为 任何 软件 模块 都 很 容易 在 演进 过 程 


适合 推广 为 一 般 情况 的 个 别 的 用 户 需 求 。 
我 们 有 可 能 遇 到 的 诸多 困难 情况 实际 上 不 一 定 是 DSL 特 有 的 问题 ， 而 是 软件 部 署 的 半 


了 
过 


9.4.2 DSL 平 稳 演 化 的 最 佳 实践 


假 
加 
兼 


设 我 们 在 应 用 里 使 用 了 第 


1 一些 功能 站 新 版 本 刚好 增加 了 我 们 需要 的 特性 。 可 是 ， 新 版 的 DSL 并 不 能 名 后 
容 我 们 当前 使 用 的 版 本 。 我 们 该 怎么 办 呢 ? 


三 方 的 DSL， 且 应 用 已 经 部 署 到 多 个 用 户 处 。 现 在 我 们 打算 给 应 用 增 


再 来 想象 一 个 场景 。 假 设 我 们 用 DSL 来 建 模 证 券 交 易 的 业务 规则 ， 而 这 些 业 务 规则 可 能 会 因为 部 


署 


醒 。 


地 的 证 券 交 易 机 构 而 各 个 相 司 。 磁 巧 现在 东京 证 券 交 易 所 修改 了 几 条 规则 ， 于 是 我 们 需要 推出 


个 针对 东京 证 券 交 易 


的 新 版 本 。 这 太 可 怕 了 ! 我 们 要 同时 维护 几 个 版 本 ， 即 使 睡 着 了 都 要 被 吓 


还 是 看 看 有 什么 预防 的 办 法 吧 ， 免 得 总 被 这 些 疹 人 的 问题 六 得 半夜 不 得 安宁 
1. 隐 式 上 下 文 模式 更 能 适应 版 本 演化 


Six 


| 


回顾 一 下 第 4.2.1 小 节 


这 段 基于 连贯 接口 的 Ruby 内 部 DSL: 


Account .create do 


number "CL-BXT-23765" 
holders "John Doe", 
address "San Francisc 


"Phil McCay" 


o" 


type "client" 
email "client@example.com" 


end.save.and_ then do |al 


Registry.registNer(a) 

Mailer.new 
.to(a.email address) 
.cc(a.email address) 
.Subject("New Account Creation") 
.body("Client account created for #{a.no}") 
.Send 


这 段 表现 账户 创建 过 程 的 DSL 运 用 了 内 部 DSL 设 计 的 隐 式 上 下 文 模式 。 比 起 一 个 规定 好 所 有 参数 
顺序 和 数量 的 create 方法 ， 这 种 模式 写 出 来 的 DSL 更 容易 适应 未 来 的 演化 。 我 们 可 以 在 不 影响 
任何 原 有 用 户 的 前 提 下 ， 向 Account 抽象 增加 新 的 属性 。 


2. 用 自动 代 换 解决 向 后 兼容 


文 个 策略 的 做 法 是 通 过 设 定 适当 的 默认 值 ， 将 旧 的 API 自 动 代 换 为 新 的 版 本 。 例 如 ， 下 面 的 Scala 
DSL 片 段 定 义 了 一 笔 固 定 收益 型 交易 ， 这 是 我 们 在 第 6.4.1 小 节 用 过 的 例子 : 


val fixedIncomeTrade = 
200 discount_bonds IBM for_client NOMURA on NYSE at 72.ccy(USD) 


用 户 对 这 段 DSL 很 满意 。 交 易 按照 脚本 中 指定 的 货币 进行 〈《 即 代码 片段 中 的 USD ) ， 这 种 4 货币 称 
为 交易 货币 。 交 易 最 后 还 要 经 过 一 个 结算 过 程 ， 我 们 的 DSL 假 定 结算 和 交易 用 的 是 同一 种 货 
未 来 某 一 天 ， J 化 ， 用 户 收 到 通知 说 ， 现 在 允许 按照 交易 货币 之 外 的 男 一 
种 货币 〈 称 为 结算 货币 ) 结算 。 于 是 DSL 也 相应 地 变 成 了 下 面 的 新 版 本 ; 
val fixedIncomeTrade = 


200 discount_bonds IBM for_client NOMURA on NYSE at 72.ccy(USD) 
settled in JPY 


现在 的 问题 是 ， 那 些 用 旧版 处 理 引 警 写 成 的 DSL 脚 本 会 发 生 什么 情况 ? i 这 些 脚本 很 可 能 会 月 演 ， 
因为 它们 的 语义 模型 里 根本 找 不 到 一 个 表示 结算 货币 的 值 


我 们 可 以 对 语义 模型 做 一 个 自动 代 换 ， 从 而 解决 这 个 问题 ， 把 缺少 的 结算 货币 取 值 默认 地 设 为 与 
交易 货币 相同 。 这 样 一 来 ， 用 户 可 以 平稳 地 迁移 到 新 版 本 的 DSL， 同 时 旧 的 DSL 脚 本 也 能 继续 顺 
利 执行 下 去 。 

3. 门 面 式 的 DSL 设 计 可 以 解决 诸多 版 本 化 问题 


还 记得 我 们 在 5.2.1 小 节 讨 论 过 的 DSL 门面 吗 ? 门面 充当 了 模型 API 的 保护 层 ， 方 便 我 们 调整 和 塑造 


pH 


公开 给 用 户 的 语法 外 观 。 亿 如 后 续 的 本 和 要 修改 St 法 ， 可 以 将 改动 限制 在 DSL 门 面 的 范围 
， -0 就 不 会 对 下 层 的 模型 有 任何 影响 。 这 个 策略 尤其 适用 于 新 版 DSL 仅 包含 少量 语法 变动 的 
情 Y o 


4. 遵 从 优秀 抽象 设计 的 各 项 原则 


附录 A 对 优秀 抽象 设计 的 原则 做 了 很 详细 的 解说 ， 请 你 务必 一 读 再 读 。 只 有 遵循 这 些 设计 原则 ， 
用 户 才 能 和 我 们 的 DSL 一 起 从 容 地 面 对 演 化 。 DSL 的 版 本 化 和 API 的 版 本 化 同和 重要 。API 越 是 死 
板 僵化 ， 就 越 难 跟随 新 版 本 一 起 演变 。 


‘< 


无 论 我 们 选择 什么 样 的 策略 ， 都 必须 留 有 余地 ， 让 多 个 版 本 的 DSL 可 以 在 同一 个 应 用 中 共存 。 
DSL 开 发 领域 还 处 于 摸索 阶段 ， 需 要 更 多 的 时 间 才 能 成 熟 。 只 要 我 们 能 多 考虑 DSL 用 户 的 未 来 需 
要 ， 就 是 对 DSL 发 展 的 积极 帮助 。 


9.5 小 结 


好 啦 ， 本 书 的 旅程 到 此 结束 。 我 们 从 所 有 的 方面 论证 了 DSL 是 一 种 更 好 的 领域 建 模 方 式 ， 又 在 这 
一 章 展 望 了 基于 DSL 开 发 的 未 来 趋势 。DSL 工 作 台 以 其 涵盖 语言 完整 生命 期 的 工具 人 有 望 把 
DSL 的 演变 之 路 安排 得 更 井井有条 。 各 种 编程 语言 就 在 我 们 眼前 i 

越 来 越 适 合作 为 DSL 的 宿主 语言 。 不 管 我 们 选择 哪 种 语言 来 开发 DSL， 都 要 坚持 设计 原则 ， 这 样 
才 有 助 于 DSL 增 量 、 和 迭代 地 健康 成 长 。 


本 书 讨论 了 几 种 具备 优秀 的 语言 特性 、 特 别 适合 用 于 设计 DSL 的 JVM 语 言 。 它 们 除了 各 具 特 色 ， 

充分 胜任 DSL 设 计 工 作 以 外 ， 又 因为 都 运行 在 JVM 之 上 ， 而 获得 了 与 Java 无 障碍 互 操作 的 能 力 。 这 
es 因为 我 们 可 以 选择 一 种 语言 来 满足 DSL 的 需要 ， 但 又 不 会 被 束缚 在 唯一 一 种 
选 定 二 百 上 


除 JVM 语 言 外 ， 还 有 很 多 其 他 语言 也 被 广泛 地 用 于 设计 DSL。 其 中 领跑 的 有 纯 函 数 式 语言 Haskell 
和 面向 发 编程 的 Erlang。 软 件 开发 图 已 经 认识 到 ， 只 有 使 那些 有 全 g 力 提供 高 阶 象 的 语言 ， 才 
是 化 解 领域 建 模 复杂 性 的 唯一 出 路 。 而 产 出 优美 的 、 可 重用 的 抽象 的 途径 之 一 ， 正 是 DSL 驱 动 的 
开发 方式 。 好 的 DSL 可 以 提高 生产 力 ， 使 代码 易于 维护 和 移植 ， 还 带 给 用 个 友善 的 界面 ， 把 
所 有 不 必要 的 细节 都 隐藏 起 来 。 总 之 DSL 就 是 领域 模型 该 有 的 样子 。 今 天 ， 我 们 已 经 在 现实 的 软 
件 开 发 中 见证 了 DSL 展 露 的 潜力 。 


要 点 与 最 佳 实践 
。 基于 DSL 的 应 用 开发 相对 来 说 还 是 软件 行业 的 一 个 新 课题 。 请 保持 对 其 发 展 动态 的 关注 。 


nt 相关 的 工具 支持 发 展 得 很 快 。 一 一 数 来 ， 从 IDE 到 原生 的 DSL 工 
作 台 ， 丰 富 的 工具 总 是 能 够 促进 开发 生态 的 发 展 。 


。 所 有 获得 关注 的 新 语言 都 有 一 些 可 以 用 在 DSL 设 计 上 的 独到 之 处 。 即 使 我 们 喜好 的 语言 没 
有 直接 提供 某 些 对 开发 和 DSL 实 现 有 确 沿 好 处 的 特性 ， 我 们 也 可 以 党 试 去 模拟 它们 。 
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附录 A 抽象 在 领域 建 模 中 的 角色 


读者 应 该 把 这 篇 附录 作为 本 书 全 部 讨论 的 铺垫 。DSL 是 覆盖 在 实现 模型 之 上 的 一 层 抽象 ， 而 实现 
模型 亦 不 过 是 在 问题 域 模型 之 上 ， 用 解 管 域 的 技术 平台 做 出 的 一 层 抽 象 。 如 采 不 能 掌握 设计 抽象 
的 正确 方法 ， 设 计 出 来 的 领域 模型 就 找 不 准 抽象 层次 ， 那 么 DSL 中 用 来 表示 领域 模型 的 文法 规则 
会 跟着 出 现 偏差 。 所 以 ， 我 们 来 看 看 怎么 让 抽象 找到 最 适合 它 的 位 置 。 


EE 


污 


本 节 集 中 讨论 在 设计 得 当 的 抽象 映 上 可 以 找到 的 一 些 特质 。 讨 论 中 会 用 软件 工程 和 程序 设计 领 
作为 参照 来 帮助 理解 ， 不 过 重点 是 如 何 拥有 一 份 精心 设计 的 抽象 ， 协助 你 更 轻松 地 构建 出 可 重复 
利用 的 领域 模型 。 随 着 讨论 逐渐 深入 ， 你 将 理解 并 学 会 欣赏 ， 抽 象 在 设计 一 个 复杂 的 领域 模型 
所 扮演 的 中 心 角色 。 经 过 一 系列 提取 抽象 的 练习 ， 你 将 能 够 越 来 越 熟 练 地 从 嘲 杂 的 细节 中 提炼 H 
ed :为 此 ， 我 们 首先 要 讨论 几 种 特质 ， 正 是 它们 把 优秀 的 抽象 设计 和 失败 的 抽象 设 
计 区 别 3 。 


5 压 


咒 林 节 用 易于 理解 的 语言 ， 讨 论 设计 得 当 的 抽象 所 应 具备 的 若干 优良 品 性 。 我 会 一 边 讨论 ， 
一 边 列 出 代码 片段 来 演示 这 些 优良 品 性 在 具体 实现 中 的 不 同 侧面 。 讨 论 到 某 个 侧面 的 时 候 ， 我 
会 选取 最 能 充分 展现 其 特征 的 编程 语言 来 作 解 释 。 虽 然 面 向 对 象 编程 范式 占据 的 篇 幅 最 大 ， 但 
也 有 不 少 例子 用 了 画 数 式 编程 原则 来 实现 。 如 果 你 对 茶 些 例子 所 用 的 语言 不 熟悉 ， 也 不 用 和 急 着 
去 翻 书 染 。 因 为 都 是 一 些 简单 而 且 符 合 直 觉 的 例子 ， 不 需要 对 具体 语言 有 深入 研究 ， 也 能 顺利 
地 理解 其 中 的 设计 原则 。 万 一 需要 了 解 某 些 语言 特性， 附录 C 到 附录 F 已 经 为 你 准备 好 了 。 
每 一 个 抽象 都 向 其 客户 提供 一 个 功能 。 为 了 完成 其 功能 ， 抽 象 向 外 公开 一 套 契 约 〈 也 叫做 接口 ) 
供 客户 使 用 。 契 弥 根据 客户 的 性 怖 可 以 用 各 种 变化 。 疤 芍 彰 后 都 有 对 应 的 实现 ， 而 且 通 党 以 抽象 
化 手段 把 实现 对 窗户 隐藏 起 来 ， 客 户 只 能 看 到 公开 的 契约 。 


人 
J 讨论 。 


A.1.1 极 简 

2 你 可 能 决定 暴露 一 定 程度 的 实现 细节 。 但 问题 是 ， 暴露 出 来 的 细节 旦 公开 给 
就 会 和 客户 耦合 在 一 起 。 所 以 要 确保 暴露 的 细节 是 为 了 实现 对 客户 承诺 契约 要 求 的 必 不 可 

少 的 要 作 第 A.2 节 讨论 到 抽象 的 极 简 特质 时 ， 会 再 详 谈 这 个 话题 。 


A.1.2 精炼 


设计 得 当 的 必定 不 能 含有 核心 关注 点 以 外 的 任何 非 必要 细 亡 。 
纯粹 度 ， 尽 可 和 能 减 少 细节 ， 但 又 不 损失 必 委 的 意义 。 使 抽象 具备 这 币 
程 ， 我 们 将 在 第 A. 3 节 详 谈 。 


A.1.3 扩展 性 和 组 合 性 


所 谓 工程 ， 讲 求 用 模块 化 的 方式 来 设计 事物 ， 并 能 通过 组 合 进行 扩展 。 除 了 外 部 的 组 合 ， 软 件 
象 还 要 能 够 从 内 部 进行 扩展 。 对 于 今天 设计 的 抽象 ， 未 来 也 许 需要 对 其 补充 额外 的 功能 。 重 点 是 
让 充 进 来 的 部 分 不 能 影响 到 已 有 的 用 户 ， 第 人.4 闻 将 诗 细 织 如 何 用 时 下 的 编程 语言 实现 能 名 天 
颖 扩展 的 抽象 。 


扩展 性 只 有 通过 组 合 性 来 达到 。 行 为 得 体 的 抽象 ， 可 以 组 合 起 来 构成 更 高 层次 的 抽象 。 
样 才能 设计 出 方便 组 合 的 抽象 呢 ? 如 果 抽 象 的 副作用 波及 到 整个 执行 环境 ， 会 发 生 什么 事 1 


你 清楚 地 知道 好 的 抽象 具有 哪些 特质 时 ， 对 于 抽象 在 领域 模型 设计 中 所 起 的 作用 就 有 了 六 
力 。 理 解 了 这 些 特质 ， 你 就 会 认识 到 ， 为 什么 要 把 抽象 摆 到 正确 的 层次 上 才能 保证 模型 和 领域 有 
共同 语言 。 只 有 这 样 ， 你 写 出 来 的 代码 ， 其 表现 力 才 不 亚 于 领域 专家 所 说 的 行 话 。 


A.2 极 简 ， 只 公开 对 外 承诺 的 


假设 你 要 在 金融 中 介 系 统 中 设计 一 个 抽象 ， 它 的 功能 是 根据 设 定 的 一 组 价格 类 型 ， 对 外 公布 某 种 
金融 票据 的 不 同类 型 的 价格 。 市 场 中 交易 的 每 一 种 票据 都 有 好 几 种 价格 ， 比 如 开盘 价 、 收 盘 价 、 
前 市 价 ， 等 等 。 抽 象 应 该 有 一 个 publish 方法 ， 可 以 给 它 指 定 种 票据 和 一 个 价格 类 型 的 列表 
F 为 参数 。 该 方法 返回 一 个 Map ， 其 中 的 键 是 价格 类 型 ， 而 值 是 给 定 票据 的 相应 价格 。 我 们 首 # 
会 写 出 这 样 的 Java 程 序 : 


象 的 实现 应 该 达到 足够 的 
FEF 质 的 过 程 是 一 个 精炼 过 


rs 


焊 诗 
上 此 
2 


二 


CI 


class InstrumentPricePublisher { 
public HashMap<PRICE_TYPE, BigDecimal> publish(Instrument ins, 
List<PRICE_TYPE> types) { 
HashMap<PRICE_TYPE, BigDecimal> m = 
new HashMap<PRICE_TYPE, BigDecimal>(); 
//.. -@ 填充 HashMap 
return m; 


te bl de eR Meh Ts a ee a 但 上 面 的 实现 
返回 了 HashMap ， 它 是 方法 内 部 用 来 存储 数据 的 一 个 特 化 的 Map 抽象 。 这 个 特 化 的 抽象 把 内 部 的 
实现 暴露 给 了 客户 。 返 回 HashMap @ 成 了 公开 的 契约 ， 那么 客户 代码 就 和 HashMap 耦合 起 来 

了 。 


假如 后 来 需要 把 内 部 的 数据 结构 换 成 TreeMap ， 该 怎么 办 呢 ? 没 办 法 ， 那 样 做 会 破坏 已 有 的 客户 
代码 。 所 以 抽象 就 失去 了 演化 的 能 力 。 怎 么 避免 这 样 的 问题 呢 ? 


A.2.1 用 泛 化 来 保留 演化 余地 


马后炮 总 是 很 啊 ， 眼 前 就 是 这 么 个 情况 。 当 初 的 抽象 设计 应 该 在 满足 契约 承诺 的 前 提 下 ， 返 回 最 
宽泛 的 类 型 。 契 约 原本 承诺 的 是 返回 一 个 Map ， 一 种 支持 键 值 对 和 查找 策略 的 数据 类 型 。 所 以 ， 
下 面 才 是 正确 的 写法 ， 尽 量 不 暴露 内 部 实现 ， 并 且 把 返回 类 型 调整 到 恰当 的 层次 : 


class InstrumentPricePublisher { 
public Map<PRICE_TYPE, BigDecimal> publish(Instrument ins, 
List<PRICE_TYPE> types) { 
Map<PRICE_TYPE, BigDecimal> m = Collections.emptyMap(); 


for(PRICE_TYPE type : 


types) { 


m.put(type, getPrice(sec, type)); 


return m; 

} 
看 过 具体 的 例子 后 ， 你 觉得 哪些 关键 症状 可 以 让 你 察觉 抽象 违反 了 最 少 公开 原则 ? 下 面 ， 我 们 来 
探讨 一 些 有 助 于 诊断 的 基本 概念 。 
A.2.2 用 子 类 型 化 防止 实现 的 泄露 
我 们 都 知道 ， 面 向 对 和 象 方法 用 继承 手段 来 对 抽象 的 共性 和 变异 性 建 模 。 在 基底 抽象 中 定义 的 行 
为 ， 本 以 被 下 级 抽象 用 逢 六 的 方式 进行 细 化 。 在 此 产生 的 层级 结构 中 ， 越 靠 近 时 子 部 分 ， 抽 象 
就 越 精细 ， 公 开 的 契约 也 更 为 特 化 。 用 继承 的 概念 来 对 子 类 型 化 建 模 ， 正 好 表现 出 抽象 逐 级 细 化 
的 情形 。 子 类 型 化 ， 顾 名 思 义 ， 子 类 型 的 契约 必须 从 父 类 型 那里 继承 得 来 ， 但 仅 限于 继承 契约 ， 
契约 的 具体 实现 是 子 类 型 自己 的 事情 ， 图 A-1 演 示 这 个 概念 。 

Instrument 5 

1issue{) 

人 


IsSSue() 


// 针对 固定 利息 票据 


// 发 行 的 实现 


FixedIncome 
’ 


纯 接 口 继承 


issue () 
// 针对 浮动 利息 票据 
// 发 行 的 实现 


图 A-1 通过 接口 继承 完成 子 类 型 化 。 子 类 型 FixedIncome 和 Equity 仅 从 父 类 型 Instrument 
继承 其 接口 ， 然 后 自行 提供 实现 


较为 特 化 的 类 型 
i 


被 称 为 一 般 


类 型 的 子 类 型 。 子 类 型 化 并 不 表示 上 下 级 的 类 型 会 共用 同一 个 实 


class) 的 面 | 


句 对 象 语言 ， 如 Java 和 C# 通 过 接口 继承 [2] 来 完成 子 类 型 化 。 可 是 在 大 


于 类 的 画 
因 


色 无 泄露 


J 以 在 有 亲缘 关系 的 
实现 之 处 ， 同 


| 


回 对 象 语言 


此 导致 混乱 的 语义 和 脆弱 的 


| “ 子 类 型 化 ” (subtyping) 往往 被 当做 “ 子 类 化 ”(subclassing) 的 同 
由 象 果 使 用 得 当 ， 接 口 继承 是 一 人 的 工 


层级 结构 。 如 果 
象 族 内 建立 牢靠 的 类 型 层次 结构 。 如 果 单 纯 通 过 子 类 型 化 手段 扩展 和 
时 得 到 的 抽象 是 极 简 特 质 的 最 佳 范 


本 。 


通过 继承 来 对 


称 为 实现 继承 。 


A.2.3 正确 实施 实现 继承 


象 的 行为 进行 细 化 ， 很 难 避免 在 上 下 级 抽象 之 间 共 至 实现 的 信 


况 ， 这 种 情况 一 般 


如 果 能 正 硼 


! 技 巧 很 容易 被 滥 用 ， 


有 实施 ， 实 现 继承 是 一 和 


就 詹 训 地 与 基 


// 针 对 固定 
// 发行 的 实现 


常 有 用 的 技巧 。 但 这 


类 实现 产生 厦 合 。 必 


一 不 小 心 ， 子 类 


issue() 
// 实现 


图 A-2 ”实现 继承 产生 的 耦合 。FixedIncome 和 Equity 的 issue() 方法 重用 了 基 类 的 实现 


的 做 法 使 子 类 也 成 了 基 半 的 客户 ， 
类 的 问题 ， 对 基 类 
的 任务 。 Te 前 


脆弱 基 


平 不 可 能 


且 基 类 的 实现 被 泄露 到 子 类 。 这 就 产 


手 何 修改 ， 都 有 可 能 打破 子 类 的 站 约 ， 医 


生 了 OO 建 模 中 称 为 
使 抽象 的 演化 成 为 近 


下 的 InstrumentPricePub1lisher 相似 ， 根 本 问题 就 是 


基础 


从 本 市 的 例子 可 以 总 结 出 
建议 ， 束 有 曝光 过 度 、 实现 汶 吉 


只 保留 自身 需要 的 


在 第 A.1 节 的 讨论 中 ， 我 们 说 过 ， 


遵从 此 


A.3 精炼 ， 


象 把 实现 公开 给 


看 起 来 ， 
取 其 本 
的 过 程 。 


A.3.1 什么 是 非 本 质 的 


你 肯定 会 加， 如 何 才 能 
清醒 的 头脑 去 研究 你 的 
象 中 的 一 处 细 


义 : 大 


只 公开 有 必要 的 部 分 ， 并 且 只 向 有 必要 的 对 象 公 开 “。 不 
多 险 ， 也 违背 极 简 原则 。 


象 是 简洁 的 ; 
质 的 过 程 。 对 


] 少 的 部 分 
也 调 精 红 即 指 从 事物 中 
由 的 非 本 质 细 节 保质 象 的 实现 保持 纯粹 


和 有 、 | ee 


# 着 深刻 的 认识 和 


2 还 可 以 下 一 个 非 正式 的 定 


Lo 


假设 你 打算 找 一 份 领域 建 模 师 的 工作 ， 于 是 打开 文字 处 理 软件 起 章 求职 
全 通过 内 置 的 拼写 检查 器 标 出 不 正确 的 字 词 。 那 么 ， 你 休 么 时候 关心 过 软 
每 


。 你 打字 的 同时 ， 软 
牛 自 带 拼写 检查 器 的 确 
当然 地 ， 你 会 假定 软件 
打 一 个 字 都 要 特地 检 


妨 守 一 
Uy 


切 版 本 ? 又 有 哪 次 拼写 检查 器 没有 随 软 件 启 动 ， 而 需要 你 专门 开启 ? 于 
打开 的 时 候 ， 拼 写 检查 功能 已 经 准备 就 绪 ， 将 会 正确 无 误 地 运行 。 如 果 
查 、 开 启 一 遍 ， 反 而 说 明 流 程 中 含有 非 本 质 的 细节 。 


如 可 提 燃 象 ， 去 除非 本 质 细 节 ? 对 了 摆 基 本 概念 的 解释 ， 会 再 次 用 到 基于 类 的 面向 对 象 编 
前 


程 中 的 一 种 常见 模式 。 例 子 照 旧 来 自 金 有 " 介 系 统领 域 如 果 对 此 领域 不 熟悉 ， 可 以 翻阅 第 1.2 和 
1.3 节 的 揪 叙 ， 那 里 介绍 了 一 些 相关 的 概念 


A.3.2 非 本 质 复杂 性 

交 给 你 一 个 任务 : 设计 一 个 TradeProcessor 抽象 ， 当 它 收 到 提交 的 一 组 交易 时 ， 将 计算 出 各 入 
交易 细节 ， 包 括 交 易 净值 、 应 付 的 各 种 税 费 和 佣金 ， 还 有 与 交易 市 场 相 关 的 其 他 信息 。 你 设计 出 
来 的 抽象 大 概 如 同 代码 清单 A-1 的 样子 。 


代码 清单 A-1 TradeProcessor 处 理 各 种 交易 细节 


— 


class TradeProcessor { 
private SettlementDateCalculator calculator; 
public TradeProcessor() { 
try { 
calculator = new SettlementDateCalculatorIimp]l(..); 
} catch (InitializationException ex) { //.. } 


public void process(List<Trade> trades) { 
for(Trade trade: trades) { 
calculator.settleon(trade.getTradeDate()); 
} 


// 其 余 处 理 过 程 


ee 需要 按照 “交易 充实 ?过程 的 规定 计算 结算 日 ， 该 日 期 的 计算 牵涉 成 交 前 后 的 各 
种 因素 ， 由 SettlementDateCalculator 负责 提供 计算 服务 。 假 设 
Et 是 一 个 独立 的 接口 ，SettlementDateCalculatorImpl 是 
其 实现 ， 负 责 根据 成 交 日 期 及 其 他 上 下 文 信息 确定 结算 日 。TradeProcessor 的 构造 器 创建 一 个 
SettlementDateCalculatorImpl 的 实例 并 保存 在 上 下 文中 ， 供 process 方法 后 续 使 用 。 也 
就 是 说 TradeProcessor 实例 初始 化 了 一 个 服务 ， 就 要 对 其 全 生命 周期 负责 。 
SettlementDateCalculatorImpl 的 构造 器 可 能 很 复杂 ， 需 要 其 他 服务 的 协助 才能 成 功 初 始 
化 。 


一 哪个 服务 初始 化 失败 了 呢 ? 如 果 遇 到 这 样 的 情况 ，TradeProcessor 类 要 负责 在 其 构造 器 中 
处 理 因 此 发 生 的 异常 连锁 反应 ， 并 安排 相应 的 恢复 措施 。 那 么 ，TradeProcessor 作为 一 个 领域 
象 ， 应 不 应 该 由 它 来 考虑 这 些 事 情 呢 ? 


TradeProcessor 是 一 个 领域 对 象 。 那 么 在 设计 它 的 时 候 ， 就 应 该 只 把 它 当做 一 个 领域 对 象 来 规 
划 ， 考 虑 这 个 领域 对 象 如 何 [配合 其 他 领域 对 象 和 领域 服务 ， 完 成 它 向 各 矿 承诺 的 职责 。 至 于 如 何 
J 如 何 管理 各 种 服务 的 生命 周期 ， 这 些 都 不 是 领域 抽象 的 核心 职责 只 责 。 从 上 面 的 列子 可 以 看 

， 领 域 对 象 的 设计 很 容易 把 一 些 非 本 质 的 复杂 性 也 参 杂 在 内 ， 而 其 实 把 这 些 方面 放 到 更 低 的 架 
次 去 处 理 更 加 合适 。 Fred Brooks 把 这 种 情况 称 为 偶然 复杂 性 〈accidental complexity， 参 见 第 
A.6 节 文献 [1]) ， 也 有 人 称 为 次 要 复杂 性 (incidental complexity) 。 


品 只 有 当 抽 象 中 的 非 本 质 复杂 性 被 限制 到 最 少时 ， 才 能 保证 抽象 处 于 一 个 恰当 的 层次 。 程 序 
设计 者 应 该 注意 把 实例 化 和 相关 服务 的 生命 周期 管理 委托 给 依赖 注入 (DI) 容器 等 底层 框架 。 


对 设计 过 程 的 每 一 步 都 应 该 进行 回顾 ， 检 查 一 下 抽象 是 否 足够 精炼 ， 是 否 有 低层 的 细节 被 泄露 到 
高 层 的 抽象 。 如 果 发 现 像 TradeProcessor 类 一 样 的 情况 ， 就 知道 应 该 重新 调整 上 下 层 架 构 的 职 
责 分 配 ， 消 除非 本 质 复 杂 性 。 


A.3.3 撤除 杂质 
消灭 非 本 质 复 杂 性 的 药方 ， 还 是 那个 解决 了 很 多 计算 机 科学 问题 的 老 法 子 一 一 在 实现 语言 和 领域 
像 之 间 引 入 一 层 新 的 间接 层 。 新 的 间接 层 将 领域 抽象 隔离 起 来 ， 保 护 它 免 受 非 本 质 复杂 性 的 侵 


染 。 


在 思考 撤除 杂质 的 方法 之 前 ， 我 们 先 换个 角度 ， 看 看 哪些 成 分 属于 杂质 。 我 们 从 抽象 的 代码 中 截 
取 男 一 段 来 进行 讨论 ， 应 该 撤除 的 信息 已 经 做 了 标注 。 


代码 清单 A-2 ”标注 了 非 本 质 细节 的 TradeProcessor 版 本 


class TradeProcessor { 
private final SettlementDateCalculator calculator; 
public TradeProcessor() { 
try { 
calculator = new SettlementDateCalculatorImpl(..); -@ 管 理 生 命 周 期 的 代码 
} catch (InitializationException ex) { //.. } -@ 服 务 失 败 时 的 异常 处 理 


TradeProcessor 在 构造 器 中 实例 化 SettlementDatecalculator 的 一 个 具体 实现 @， 担 负 
了 管理 SettlementDateCalculator 服务 生命 周期 的 职责 。 因 此 产生 以 下 后 果 。 


。 从 此 TradeProcessor 对 该 服务 的 某 个 特定 具体 实现 产生 依赖 。 
为 TradeProcessor 编写 单元 测试 时 ， 必 须 保 证 该 服务 实例 已 经 就 位 ， 还 要 保证 所 有 被 依赖 
的 服务 全 部 就 位 。 这 违反 了 抽象 应 该 可 进 和 了 独立 单元 测试 的 原则 ， 而 且 一 旦 脱离 这 个 具体 的 
实现 环境 ， 抽 象 被 重用 的 可 能 性 大 大 降低 。 


。TradeProcessor 的 构造 器 被 SettlementDateCalculatorImpl 的 初始 化 逻辑 引发 的 
错误 处 理 代码 污染 @ 。 


代码 中 充斥 着 噪 杂 的 细节 ， 这 些 细节 不 应 该 成 为 TradeProcessor 的 首要 关注 方面 。 
对 于 哪些 成 分 属于 抽象 中 的 非 本 质 细 节 ， 你 有 所 了 解 了 吗 ? 很 好 ! 让 我 们 来 消灭 它们 吧 。 
A.3.4 用 DI 隐 藏 实现 细节 


我 们 要 做 的 就 是 从 TradeProcessor 的 代码 中 去 除 涉及 SettlementDatecalculator 生命 周 

期 管理 的 部 分 。 正 确 的 方式 是 ， 当 TradeProcessor 需要 SettlementDateCalculator 时 ， 

我 们 从 外 部 给 它 提 供 一 个 实例 。TradeProcessor 不 需要 关心 收 到 的 实例 属于 哪个 确切 的 具体 实 

现 ， 因 为 相关 服务 的 实例 化 、 管 理 和 终结 等 具体 事务 将 与 TradeProcessor 隔离 。 依 赖 注入 
(dependency injection，DI) 会 替 我 们 完成 隔离 工作 。 


定义 ”DI 框架 是 一 种 外 部 容器 ， 它 通过 说 明 式 的 配置 代码 ， 创 建 、 装 配 、 连 接 各 种 依赖 项 ， 把 
它们 组 织 成 一 个 对 象 图 。 关 于 各 种 DI 技术 的 详细 说 明 ， 请 参阅 第 A.6 市 文献 [2]。 
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Google 提 供 


单 A-3 


的 Guice 依 赖 注入 框架 ( 


(http://code.google.com/p/google-guice/ ) ， 


代码 是 抽象 精炼 之 后 的 样子 。 


精炼 后 的 TradeProcessor 
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class TradeProcessor { 
private final SettlementDateCalculator calculator; 
@Inject -~ 指示 注 


入 位 置 的 标注 
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public TradeProcessor(SettlementDateCalculator calculator) { 
this,calculator = calculator; 


干净 的 构造 器 


现在 ，TradeProcessor 摆脱 了 非 本 质 的 细节 


只 需要 ] 


我 人 


解 如 何 续 


h 定 TradeProcessor 类 和 SettlementDateCalculator 的 具 
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原理 在 此 
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应 用 程 
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5 时 ， 就 有 这 方 
象 外 音 


放 到 
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A.4 扩展 性 提供 成 长 的 空间 


按照 第 A.2 闻 和 A.3 节 的 ] 


炼 ) 。 可 
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象 的 扩 
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证 
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Jav 
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8 二 


的 Map 抽象 提供 了 一 和 有 
。 标准 JDK 类 库 对 java,util,Map 进行 了 好 几 种 扩展 。 其 中 
了 Map 接口 的 全 部 操作 ， 但 
Map 的 子 类 型 化 ， 例 如 SortedMap 和 ConcurrentMap 提供 


HashMap 和 TreeMap 提供 


Map 接 


关联 性 


讨 


我 们 的 抽象 
户 又 要 求 给 程序 添加 新 功能 
否 足够 。 


系 块 的 方式 成 长 ， 
地 介绍 如 
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数据 结构 


论 了 如 何 使 用 函数 式 编程 特性 


己 经 具备 了 合 
， 所 以 你 不 得 不 在 


司 时 不 影响 已 有 的 客 


面向 对 象 5 


时 运用 


民 多 语言 实现 直接 提供 了 强 有 
述 Scala 语 言 强大 且 可 扩展 的 静态 类 

EB 外 部 化 ， 也 就 是 把 非 
来 设计 领域 模型 ， 


。 不 同 的 开发 范式 具 
ee 页 域 较为 流行 


吕 也 将 


适 的 曝露 度 〈 极 简 ) 和 纯粹 度 ( 精 
象 中 加 入 额外 的 行为 。 那 么 现 


~ 


言 特性 


也 表现 形式 将 在 介绍 高 级 语 E 和 高 


对 次 抽象 


的 基本 功能 ， 并 向 


不 同 的 底层 存储 机 制 。 


内 部 采 


个 Dictionary 接 


体 的 子 类 实现 ， 例 如 


男 一 些 是 


了 比 Map 类 型 更 


合 java .util,Map 增加 一 项 特定 


的 行为 ， 


丰富 的 行为 语 


所 有 变 体 和 实现 起 作 有 有 


， 并 不 容易 找到 答案 。 


， 应 该 怎么 做 呢 ? 请 仔细 考虑 一 下 这 个 问题 


题 ， 


因为 就 


仅 对 HashMap 之 闫 的 从 个 具 作 实现 进行 条 


得 不 到 新 


功能 


不 可 行 ， 因 为 那样 的 i 


Map 接 


展 


的 其 他 实现 还 是 


HH，, 


还 可 以 用 一 个 装饰 器 把 Map 的 实 


人 网 包装 起 来 (参见 第 A.6 节 文献 [3]) ， 但 


使 用 场景 下 才 有 效 。 在 其 他 用 例 中 ， 
如 SortedMap 和 ConcurrentMap 。 考 虑 以 下 的 例子 : 


Map 被 包装 之 后 ， 会 失去 原 


二 


日 这 种 方案 只 


在 特定 的 


Map 实例 的 一 些 重要 内 容 ， 例 


} 
Ls 
} 


DecoratedMap<K, V> 
ConcurrentMap 或 SortedMap 类 型 的 实例 ， 
Eugene 在 第 A.6 节 文献 [5] 讨 论 了 一 种 应 
编写 一 个 独立 的 工 


策 唯 有 从 头 实现 Map 接 


能 性 之 


日 
全 


最 后 的 对 
看 过 所 有 的 可 


日 成 


问题 


个 行为 的 相 


class DecoratedMap<K，V> implements Map<K, V> { 
private final Map<K, V> m; 
public DecoratedMap(Map<K, V> m) { 
this.m = m; 


-@@ 包装 Map 


实现 Map<K，V> 


装饰 被 包装 


医生 


对 象 Map<K，V> @， 此 时 即 
包装 器 也 无 法 使 


子 类 


在 


场景 ， 


其 中 为 全 部 Map 实现 提供 


扩展 功能 的 唯一 


具 画 数 ， 虽 然 按 照 纯粹 主义 者 的 观点 ， 


， 但 这 样 做 将 产生 大 量 复制 茜 贴 的 重 


台 已 全 
BES 


， 你 可 
的 一 个 层级 结构 ， 试 图 


在 java.util.Map 类 型 的 


疑问 用 纯正 的 OO 方式 扩展 java.util1.Map 为 


复 代码 。 


十 么 如 此 


构造 器 中 传 入 
型 提供 的 额外 功能 。 


办 法 ， 


这 是 完全 不 符合 面向 对 象 的 方式 。 


利 难 。 


所 有 实现 


迫切 需要 实现 继承 的 帮助 ， 更 6 


象 之 


重 性 问题 。 我 们 需要 一 种 组 
， 来 实现 引入 新 行为 或 履 盖 已 丰 


行为 的 目 


小 节 


A.4.2 mixin: 满足 扩展 性 的 一 种 设计 模式 


mixin 下 


帮助 
假设 提 


并 必 才 奸 泛 更 大 贡生 的 象 


。 有 不 少 语言 提供 了 这 和 


特性， 


0 


服务 的 金融 


司 决定 在 市 场 中 引入 一 种 新 的 票据 ， 


利用 mixin 便 本 


混合 


插入 
有 切 地 说 ， 需 要 多 重 实现 继承 的 帮助 ， 因 为 这 
合 独立 的 小 粒度 抽象 手段 ， 通 过 把 
的 。Mixin 提 全 


、 搭配 的 性 


A 


新 的 


zy 


它们 无 颖 地 附 
了 一 种 可 行 的 途 


质 ， 


| 热带 风情 票据 。 这 和 


一 系列 特性 


民 常见 ， 因 此 都 已 经 在 领域 
抽象 。 用 基于 mixin 的 编 


Todab le 混入 


\ 父 抽 


组 


] 特 性 “混入 ”基本 抽象 ， 就 有 


们 是 怎 检 


ee 


A] o 
-4 


中 实现 过 ] 
程 方式 来 实现 的 话 ， 
合成 我 们 的 热带 
、Maturable 逢 
行为 和 实现 。 


。mixin 类 CouponPayment 
为 完整 的 类 ExoticInstrument 提 伯 


下 


时 的 


' 票 


的 工作 是 把 
简直 击 


像 


Gilad Bracha 是 一 位 计算 理 
应 用 ) 大 会 的 论文 (参见 第 A.6 节 文献 [4]) 中 
的 父 类 进行 行为 特 化 。mixin 不 可 以 被 和 
展 ， 然 后 无 颖 地 附 在 一 个 抽 


扩展 


(http:/www.scala-lang.org 


论 学 家 ， 在 他 提交 到 1990 年 度 OOPSLA ( 


由 


面向 对 象 编程 、 


以 理解 为 Java 


的 接 


风情 票据 。 从 


有 


、 语言 


mixin 被 定义 为 一 种 抽象 子 类 ， 可 对 系列 多 洋 化 
E 独 使 用 ， 所 以 把 它们 叫做 抽象 子 类 。mixin 定 义 统一 的 类 
象 家 族 身上 ， 为 整个 抽象 家 族 增 加 同样 的 行为 。Scala 
) 通过 Traits 的 形式 实现 mixin， 而 在 Ruby 中 则 叫做 Modules 。Trait 可 
， 只 不 过 接口 中 的 方法 声明 还 可 以 包含 可 选 的 实现 给 基 类 共享 。 


图 A-3 ”基于 mixin 的 继承 。ExoticInstrument 从 Instrument 获得 issue() 和 close() 的 
实现 ， 然 后 与 CouponPayment 、Maturable 、Tradable 等 mixin 组 合 


A.4.3 用 mixin 扩 展 Map 


现在 来 看 看 怎样 用 mixin 给 Map 抽象 的 所 有 实现 增加 一 项 特定 行为 。 假 设 需 要 给 各 种 Map 添加 一 个 
同步 的 get 方法 ， 覆 盖 原 本 的 API。 首 先 ， 在 Scala 中 定义 一 个 trait， 在 标准 Map 接口 的 基础 上 提供 
一 个 新 增 行为 的 实现 。 

trait SynchronizedGet[A,B] extends Map[A, B] { 


abstract override def get(key: A): Option[B] = synchronized { 
super .get (key) 


类 后 这 个 行为 可 以 混入 Scala 的 任意 一 种 Map 类 型 变 体 ， 无 论 其 底层 如 何 实现 : 


val names = new HashMap[String, List[String]] 
with SynchronizedGet[String，List[String]] -= 对 Scala HashMap 进 行 混 入 

val stuff = new scala.collection.jcl.LinkedHashMap[String, List[String]] 
with SynchronizedGet[String, List[String]] -对 Java LinkedHashMap 进 行 混入 


注意 ， 在 最 后 的 实现 中 ，SynchronizedGet 这 个 trait 是 在 运行 时 对 象 创建 期 间 被 动态 混入 的 。 


Scala trait 还 可 以 作为 多 个 属性 的 组 合体 ， 静 态 地 混入 已 有 的 抽象 。 Scala 的 trait 混 入 手法 既 能 能 达到 
实现 继承 的 目的 ， 又 避免 了 Java 实 现 的 缺点 。 第 6 章 介 绍 Scala 语 言 特性 的 时 候 会 更 进一步 讨论 Scala 
trait 。 


A.4.4 画 数 式 的 扩展 性 


很 多 人 抱怨 OO 编程 迫使 他 们 编写 很 多 不 必要 的 类 。“ 一 切 都 是 类 ”并 不 成 立 ， 虽 然 面 向 对 象 有 时 候 


希望 你 这 样 想 。 在 现实 世界 中 ， 很 多 问题 更 适合 建 模 成 钞 数 式 的 抽象 或 者 基 ] 


规则 的 抽象 。 


伯 


假设 要 建 模 


个 有 限 步 又 的 算法 ， 如 下 面 的 代码 片段 。 我 故意 省 略 了 作为 算法 输入 的 参数 。 


def process(...)={ 


try { 


if (init) proc 


} finally 


{ end } 


init 是 工法 的 初始 化 部 分 。 如 果 init 成 功 完成 ， 接 着 调用 负责 核心 处 理 的 部 分 proc 。end 是 


终结 部 分 ， 负 责 清理 各 种 资源 。 


现在 要 求 你 进行 扩展 ， 让 init 、proc 和 end 都 有 不 同 的 实现 。 种 思路 是 为 每 个 步骤 分 别 定 
一 个 对 象 ， 把 各 阶段 的 流 这 个 思路 是 可 行 的 ， 但 如 果 外 ~ 


数 式 编程 和 高 阶 函 数 的 作用 ， 会 得 到 更 好 的 结果 。 你 可 以 把 init 、proc 和 end 建 模 为 画 数 ， 然 


后 作为 闭 包 传递 给 主流 程 。 如 下 所 示 : 


try { 一 
} finally 
end 


} 


def doEnd = 


def process(init: =>Boolean, proc: =>Unit, end: =>Unit) = { 


if (init) proc 


} 

def doInit = { //.. } -= 初始 化 

def doProcess = { //.， } =” 核心 处 理 
i 


通用 的 算法 


{ 


{ //.，} -终结 


最 后 我 们 来 看 一 种 非常 规 的 扩展 方式 。 并 非 所 有 语言 都 文 持 这 种 手法 ， 但 如 果 能 理智 地 使 用 ， 


[CS 


将 是 一 件 高 效 的 工具 。 


A.4.5 扩展 性 也 可 以 临时 抱佛脚 


扩展 不 一 定 需要 建立 新 的 抽象 。 不 少 语言 提供 一 种 叫做 开放 类 (open classes) 的 特性 ， 你 可 以 向 


这 种 类 注入 新 的 方法 或 者 修改 类 中 已 存在 的 方法 ， 直 接 扩展 其 现 有 结构 。 Ruby 和 Groovy 都 支持 开 
放 类 ， 多 许 你 了] 开 任何 一 个 类 去 修改 其 行为 。 一 般 把 这 种 做 法 叫做 猴子 补丁 人 (monkey 


patching 


很 多 开发 者 认为 猴子 补丁 极 个 安全 ， 对 它 大 久 眉头 。 如 果 能 负责 任 地 运用 ， 这 种 技术 


村 以 发 挥 极 大 的 威力 可 是 当前 的 软件 开发 中 能 找到 许多 实际 例子 ， 让 它 的 自我 标榜 站 不 住 脚 。 
Ruby 铸 子 补 ] 的 主要 问题 在 于 缺少 请 法 和 用 域 ， 加 在 一 个 抽象 上 的 任何 东西 都 会 进入 全 局 命名 空 


间 ， 并 对 该 


象 的 所 有 用 户 可 见 。Scala 在 这 一 点 上 要 好 很 多 ， 它 提供 一 种 限制 词法 作用 域 的 开放 


类 ， 在 Scala 


语言 特性 的 讨 


的 术语 里 面 叫做 implicits， 通 过 在 语法 作用 域内 的 隐 式 转换 来 扩展 现 有 类 。 (对 这 种 
论 仑 可 参 | 阐 http:Wdebasishg.blogspot.com/2008/02/why-i-like-scalas-lexically-scoped- 


open.html ) 


这 种 特性 出 乎 意料 地 有 用 ， 能 够 在 不 安全 的 Ruby 猴 子 补丁 和 严格 封闭 的 Java 类 两 个 极 


端 中 间 找 到 完美 的 平衡 点 。 


A.5 组 合 性 ， 源 自 纯粹 


有 大 量 的 研究 工作 沦 试 将 简化 形式 的 人 类 语言 教授 给 其 他 灵 长 类 动物 。 大 猩猩 和 黑猩猩 能 学 会 


符号 和 手势 组 


它们 可 以 学 


成 的 语言 ， 并 用 来 沟通 ， 当 然 这 样 的 语言 只 是 人 类 原始 语言 的 一 种 简化 组 合 。 虽 然 
会 越 来 越 多 的 词汇 ， 但 始终 没 能 发 展 出 把 语言 组 织 成 句子 的 能 力 。 人 类 大 脑 有 一 个 部 


位 叫做 Broca 区 ， 负 责 让 我 们 有 能 力 组 织 出 符合 语法 的 句子 。 语 法 组 织 能 力 使 现实 世界 的 交流 有 意 
义 、 有 条 理 、 有 上 下 文 关系 。 作 为 现实 世界 的 模型 ， 软 件 抽 象 在 定义 和 公开 各 种 契约 时 ， 也 应 该 
使 它们 具备 同样 的 有 意义 的 交流 能 力 。 


我 们 平常 使 用 电脑 时 ， 操 作 系统 会 时 不 时 下 载 一 些 安装 包 、 更 新 包 和 新 版 本 的 系统 。 这 些 组 件 并 
不 是 全 都 由 同一 个 人 开发 的 ， 也 不 是 全 部 同时 开发 的 。 但 它们 能 够 顺利 地 互相 通信 ， 无 妖 地 组 合 
在 一 起 ， 并 用 抽象 化 的 方式 向 你 隐藏 所 有 的 实现 差异 。 


以 目前 的 软件 开发 生态 来 说 ， 并 不 存在 一 种 编程 语言 既 能 扮演 兼容 层 ， 同 时 又 满足 各 方面 的 要 

求 。 相 反 ， 我 们 用 功能 强大 的 运行 时 和 中 间 件 作为 宿主 ， 容 纳 多 种 语言 、 协 议和 分 布 式 机 制 ， 并 
在 它们 之 间 实 现 相互 通信 。 软 件 开 发 时 ， 不 同 的 组 件 会 用 不 同 的 语言 。 组 件 代码 的 规模 可 能 只 有 
几 行 ， 也 可 能 是 成 百 上 于 行 。 但 不 管 是 什么 样 的 双 件 ， 我 们 希望 它 门 可 以 像 预制 单元 一 样 组 合 ， 

日 无 颖 地 连接 到 其 他 软件 基础 设施 构成 的 生态 系统 中 。 


面向 对 象 编程 可 运用 聚合 、 参 数 化 、 继 承 等 技巧 ， 将 小 的 抽象 发 展 成 大 的 抽象 。 但 这 些 技巧 都 有 
其 负面 影响 ， 每 一 次 运用 都 应 1 该 详 加 考虑 。 例 如 ， 在 Java 中 使 用 实现 继承 会 使 类 结构 之 间 出 现 不 
必要 的 耦合 ， 因 而 损害 扩展 能 力 。 如 果 严 格 遵循 设计 模式 所 建议 的 最 佳 实践 ， 就 可 以 避免 这 类 负 
面 影响 。 第 A.3 节 已 经 举 过 一 个 设计 模式 的 例子 ， 我 们 用 DI 模式 消除 组 件 中 多 余 的 细节 了 ， 达 到 撤除 
杂质 的 目的 。 接 下 来 让 我 们 看 看 设计 模式 还 可 以 在 哪些 地 方 发 挥 作用 。 


A.5.1 用 设计 模式 满足 组 合 性 
有 一 种 常用 模式 可 以 向 客户 提供 对 一 组 动作 的 抽象 ，Gamma 等 人 称 之 为 Command 模 式 (参见 第 


A.6 世 文献 [3]) 。 这 种 设计 模式 的 目的 是 把 对 动作 的 请 求 封装 成 一 个 对 象 ， 这 样 束 1 可 以 用 不 同 的 请 
求 对 客户 作 参 数 化 ， 还 可 以 对 请 求 排队 、 记 录 请 求 日 志 ， 实 现 操作 撤销 和 恢复 功能 。 图 A-4 表 现 了 


Command 模 式 要 求 的 抽象 结构 。 
Ey 


Receiver 


ConcreteCommand 
execute () 


图 A-4 ”Command 使 调用 者 及 接受 者 与 具体 动作 和 解 辜 。 因 此 命令 对 象 即 使 脱离 了 当前 的 执行 上 下 


文 ， 仍 然 可 以 重用 


Command 设 计 模 式 将 调用 者 及 接受 者 与 将 要 执行 的 命令 解 籼 。 因 此 单个 的 命令 即使 脱离 了 当前 的 
调用 者 、 接 受 者 构成 的 上 下 文 ， 也 可 以 单独 重用 。 甚 至 可 以 将 单个 命令 单元 聚合 起 来 ， 构 成 更 高 
层次 的 命令 。 通 过 聚合 (aggregation) 的 方式 ， 命 令 是 可 组 合 的 。 图 A-5 表 现 了 用 聚合 手段 体现 
象 的 组 合 性 ， 设 计 出 Macrocommand ( 宏 命 令 ) 的 场景 。 
for all c¢ in commands 
do 
人 EXecuUte () 
coRRROSA Flgure A.5 
MacroCommand MacroCommand composes | 
the MacroCommand results 
lts composed commands. 


图 A-5 Macrocommand 是 对 命令 的 组 合 。 执 行 Macrocommand 等 于 级 联 地 执行 组 成 它 的 一 系列 


命 

Command 模 式 以 及 它 的 复合 形式 ， 提 供 了 一 种 宏观 层次 的 组 合 能 力 ; 原本 独立 执行 特定 动作 的 对 
象 ， 变 成 可 以 编排 组 合 的 元 件 。 但 在 UI 的 设计 中 ， 开 发 者 需要 动态 增 减 显示 组 件 的 单个 特性 ， 此 
时 需要 比 Command 模 式 粒度 更 低 的 组 合 能 力 。 抽 象 公开 的 接口 是 固定 的 ， 但 通过 该 接口 组 合 起 来 
的 对 象 各 有 一 套 功能 。 


这 种 


饰 器 的 接口 


情况 下 应 该 应 用 Decorator 模 式 。 在 1 


是 所 谓 的 装饰 器 ， 装 
Decorator 模 式 提供 了 


子 类 化 和 实现 继承 以 


文 种 模式 下， 你 围绕 一 个 核 
与 核心 对 象 相同 。 装 饰 器 可 在 对 象 
的 又 一 种 组 合 途径 。 还 


式 ， 同 样 被 OO 程序 员 群 体 用 了 
A.5.2 回归 语言 


随 着 时 间 推 移 ， 


前 症 


设计 和 


第 A.3 节 就 提 到 过 ，Scala 和 Ruby 都 有 
四 的 正确 途径 。Scala 语 言 中 基于 对 象 的 mixin 特 性 ， 


手段 ， 也 是 实现 多 重 继承 


实现 的 。 


有 组 合 能 力 的 类 结构 。 


讨论 过 的 很 多 设计 模式 已 经 被 现代 的 OO 语言 和 函数 式 


对 象 设计 一 群 包装 类 ， 也 就 
级 别 动态 地 装 上 或 拆 下 。 


有 很 多 种 结构 模式 和 行为 模 


五 二 * 


本 百 8 


纳入 为 语言 特性 


支持 基 


于 mixin 的 继承 的 内 


置 。mixin 是 对 抽象 进行 组 


合 的 优秀 
就 是 按照 Decorator 模 式 


除 J 用 mixin 作 模块 化 的 组 合 ， Scala 的 语 级 ND 型 系统 还 提供 ] 其 他 些 机 制 ， 可 以 提 高 象 的 组 合 
性 。 第 6 章 讨论 用 Scala 作 为 实现 语言 设计 复杂 领域 模型 时 ， 会 一 并 详细 讨论 。 本 小 世 重 点 观察 编程 
的 三 部 分 < 际 普 遍 呈 现 的 发 展 趋 劳 ， 即 越 来 越 多 的 设计 模式 和 最 佳 实践 被 吸收 成 为 语言 实现 
一 部 分 


1. 基 于 原型 的 OO 


1 


有 一 和 不 人 


只 有 


` 包 含 类 的 概念 ， 上 5 


段 。 如 果 ? 
存在 任何 静态 和 
JavaScript 就 采 
们 从 基于 原型 


此 


可 


OO 语 


J 为 ， 


和 
在 基于 


! 抽 象形 
只 要 将 一 个 对 象 标记 为 另 一 个 对 象 的 父 未 
9 悉 承 层 次 结构 ; 实现 继承 
这 种 基于 原型 的 OO 模型 ， 


类 的 OO 
而 我 们 之 前 


作对 实体 行为 的 建 模 
0 可。 在 这 样 的 模型 中 


1 寺 


前 讨 


WE 


表现 出 来 区 


A 


言 的 角度 ， 观 察 一 


在 下 画 


原型 式 的 意思 是 指 in 


的 JavaScript 例 子 


里 ， 首 先 定义 


下 它们 是 女 


fixed_income 对 象 是 jnstrument 的 特 化 变 体 ， 


中 


可 处 理 


对 象 的 组 


个 instrument 对 


strument 对 象 充当 基础 的 角 


多 


Cy 


象 ， 作 为 


那 种 OO 模型 


下 


在 这 相 ， 不 
固有 的 缺陷 都 消失 了 。 

J 被 称 为 基于 类 的 模型 。 我 
刁 题 的 。 


其 他 票据 的 原型 式 对 象 。 


所 


被 所 有 实现 了 同样 契约 的 对 象 所 共享 。 
在 instrument 的 实现 之 上 增加 了 独特 的 行 


为 。 在 实现 层面 ，fixed_income 有 一 个 指针 指向 它 的 父 对 象 ， 也 就 是 所 谓 的 原型 。 此 例 中 的 
原型 是 instrument 对 象 。 
安排 以 上 结构 的 不 难 理解 。 当 尔 调 用 对 象 的 某 个 方法 时 ， 接 到 调用 请 求 的 对 象 把 这 个 方法 
(或 者 叫 消息 ) 与 它 自身 的 契约 集 (或 者 叫 消息 集 ) 进行 比 对 ， 妇 果 投 人 到 本 的 清和 那么 束 
将 消息 转发 给 的 所 可 看 原型 是 否 能 响应 该 消息 。 消 息 逐 次 转发 给 上 一 级 的 原型 ， 直 到 成 功 响 
应 或 者 到 达 特 殊 的 根 对 象 0bject 为 止 。 
1 叫做 委托 (delegation) 。 委 托 可 以 在 最 细小 的 粒度 层次 动 
var instrument = { 
issue: function() { //.. } 
close: function() { //.. } 
//.. 
var fixed_income = 0bject.beget(instrument); 将 该 对 象 的 原型 设 为 jnstrument 
fixed_income.mature = function() { //.. } 
品 要 选择 最 合适 的 OO 形态 来 对 问题 进行 建 模 ， 而 且 绝 不 应 该 被 语言 束缚 住 手脚 。 与 其 为 实现 
设 让 -模式 而 编写 大 量 的 八股 代码 ， 不 如 把 眼光 放宽 一 点 ， 换 一 种 更 得 力 的 语言 也 许 会 找到 更 简 
洁 的 出 路 。 
当 设 计 模 式 被 吸收 进 语言 实现 之 后 ， 呈 现 出 来 的 结构 可 能 不 像 原先 那么 明显 ， 很 可 能 已 经 和 语言 
融 为 一 体 ， 变 成 一 种 习惯 用 法 。Ruby 中 的 元 编程 就 是 很 好 的 例子 。 


2. 元 编程 无 处 不 在 ) 


在 Java 中 实现 Builder 模 式 需 要 大 费 周章 ， 但 如 果 通 过 Ruby 元 编程 来 实现 ， 却 只 
法 。 具 体例 子 可 以 参考 Jim Weirich 利 
和 可 参阅 ip //github.com/jimweirich/builder/tree/master ) 


月 
签 Builder (详情 


惯常 方式 ， 


避风 呈 


上 Ruby 在 运行 


也 已 
时 修改 类 实现 的 能 


全 
口 


么 融 


A.5.3 副作用 和 组 合 性 


了 封装 ， 


上 文 讨论 过 的 Command 设 ; 
开发 者 得 以 将 多 和 有 


十 模式 还 有 一 些 方面 


值得 继 双 


了 DI 模式 。Strategy 模 式 既 可 以 月 
， 动 态 地 实施 。 


1 动作 组 合 


期 产生 某 种 结果 的 动作 
J 印 一 些 信息 /也 


但 除了 实现 
、 向 数据 库 发 


F。 


写 入 请 求 、 


4 抽象 。 此 处 的 
能 


El 


异 第 ， 


3Ruby 的 method_missing 特性 


卖 深入 探讨 。Command 模 式 对 用 


Ruby 的 模块 特性 


是 一 种 自然 的 习惯 
巧妙 实现 的 一 个 XML 标 
。 类似 地 ，Ruby 中 构造 新 
直接 实现 ， 也 可 以 


动作 进行 


已 


动作 是 指 用 户 施 加 于 对 象 以 


可 


或 者 改变 


全 14 十 


生男 外 的 副作用 
: 某 些 全 局 状态 。 


， 例 如 顺带 


副作用 的 结果 取决 于 过 往 历史 


对 银行 账户 执行 取款 动作 ， 同 时 会 有 更 
的 结果 因 当 前 余额 而 异 。 你 不 能 贸然 忽略 程序 语 句 解 尘 执行 的 顺序 ， 也 不 角 


进行 语句 合并 、 结 果 缓 存 、 缓 求 值 之 类 的 优化 。 有 副作用 的 程序 不 容易 被 到 


1. 分 离 命令 和 查询 


在 面向 对 象 编 R 程 实 获 中 如 何 有 效 地 控制 副作用 呢 ? 答案 依旧 取决 于 近年 发 展 起 来 的 设计 模式 、 
(Command-Query Separation) 模式 ， 这 是 
Bertrand Meyer 在 设计 Eiffal 语 言 期 间 提 出 的 ， 后 来 得 到 Martin Fowler 的 推广 ( 
。“ 查 询 ， 被 限定 为 只 求 得 结 R 
单纯 动作 ， 而 不 引起 任何 全 局 的 状态 变化 ， 也 不 产生 任何 副作用 。 相 对 地 ， 


用 法 以 及 最 佳 实践 。 种 方案 叫做 命令 -查询 分 离 


http://www.martinfowler.com/bliki/CommandQuerySeparation.html ) 


命令 ， 但 绝 不 可 两 者 兼 具 


用 为 目标 ， 通 常 牵涉 到 某 和 状态 的 变更 。 在 该 模式 下 ， 每 个 抽象 要 么 属 
种 外 


FJ 


| 副作用 不 可 组 合 。 运 用 Command-Query Separation 模 式 区 别 模型 


有 效 掌握 所 有 产生 副作用 的 抽象 。 


详情 可 参阅 


新 余额 的 副作用 ， 更 新 
BE 假设 编译 器 一 定 不 会 
E 解 ， 更 不 容易 分 小 析 S 


函数 式 编 程 很 少 利用 副作用 来 达到 目的 ， 即 使 有 必要 使 用 ， 也 可 以 通过 一 部 分 语言 提 化 


注 ， 明 确 地 声明 具体 将 产生 哪些 副作用 。 画 数 式 语言 并 不 一 定 限制 副作用 


静态 类 型 系统 对 副作用 进行 约束 。 在 Haskell 里 不 允许 把 带 副 作用 的 


象 


疗 台 


数 。 


2.Haskell 示 例 


日 Haskell 会 } 


专递 给 要 求 纯粹 性 


前 面 我 们 一 直 用 对 象 来 实现 Command 模 式 的 建 模 ， 现 在 不 妨 党 试用 


合成 一 个 宏 命 令 。 在 Haskell 里 完成 同样 的 任务 ， 则 要 简单 得 多 : 


惯 


的 查询 和 命令 ， 如 此 方 能 


的 特别 标 
通过 它 的 


的 画 


函数 式 的 方式 来 实现 。 假 设 我 


然后 用 这 


门 的 任务 是 对 集合 的 每 个 元 素 依次 施用 f 画 数 和 g 函数 。 如 果 按 照 第 A.5.1 小 节 的 实现 ， 


要 把 f 函数 和 g 画 数 分 别 封闭 成 两 个 命令 〈 也 许 封装 成 画 数 对 象 的 形式 ) ， 这 两 个 命令 


map f (map g lst) 


map 是 Haskell 中 的 一 种 组 合子 (combinator) ， 它 对 列表 中 的 所 有 元 素 分 别 调用 
个 函数 。 在 上 面 的 代码 片段 中 ， 首 移 g 画 数 被 应 用 到 列表 1St 的 每 个 元 素 中 ， 生 成 一 个 作为 中 间 
机 。 外 层 的 map 再 对 中 间 结 果 列表 中 的 每 个 元 素 应 用 和 函数 ， 


心 


果 的 列表 。 以 上 操作 符合 一 般 的 逻辑 ， 也 很 接近 前 面 MacroCommand 


方 。map 刚好 是 一 种 只 接受 纯 函 数 的 组 合子 。 请 看 map 在 Haskell 语 言 


Prelude> :t map 
map :: (a -> b) -> [al -> [b] 


前 面 已 经 说 过 ，Haskell 是 一 种 纯 函 数 式 语言 ， 不 允许 将 带 副 作用 的 画 数 传递 至 
的 类 型 定义 : 


得 到 
列子 的 思路 。 


户 提供 的 


田 


LA 


| 要 求 纯粹 


作为 最 后 输出 结 


生 的 地 


> 


应 用 到 源 列表 [a] 的 每 个 元 素 中 ， 生 成 另 一 个 列表 [b] 作为 


当 我 们 让 map 调 
时 ， 除 非 f 和 g 都 是 没有 任何 副作用 的 纯 画 数 ， 否 则 编译 器 会 拒绝 接受 。 而 又 因为 f 和 g 必 
函数 ， 所 以 Haskell 编 译 器 可 以 将 例子 中 的 调用 变换 成 等 价 的 map (f . 
移 的 分 步调 用 ， 经 过 编译 器 的 变换 ， 变 成 对 列表 中 的 元 素 调用 一 个 复合 画 数 。 


g) LIst。 这 样 一 
这 入 的 好 处 是 


map 是 一 个 函数 ， 接 受 另 一 个 函数 (a->b) 和 一 个 列表 [a] 作为 输入 ， 通 过 将 函数 (a->b ) 分 别 
吉 果 。 


ff 或 g 函数 


` 定 是 纯 


来 ， 


存放 中 间 结 果 的 临时 数据 结构 完全 消失 不 见 了 。 


时 


屯 粹 性 的 保持 导致 结果 


> 口 


有 更 


好 的 组 合 性 


原 
下 


想必 你 对 第 A.5. 
的 纯粹 世界 中 怎 权 
考虑 以 下 函数 : 


羊 的 事情 。Haskell 在 语言 


节 向 对 象 的 Command 模 式 实现 如 何 处 


E33 


云 | 


FE 用 有 所 疑问 ， 更 想 知 道 在 Haskell 
ee Query Separation 模 式 。 请 


人 
9 


f 丽 数 是 纯 画 数 ， 乡 

蔬 的 类 和 

动作 类 型 。 
变 尼 

类 型 


总 是 能 得 到 相同 的 结果。 


二 


型 声明 就 可 2 


1 明 它 返 
许 会 从 stdin 或 
能 得 到 相同 的 结 : 


而 g 是 一 个 命 


虽 调 f eo 


非 所 有 pe 


A.5.4 组 合 性 与 并 发 


可 组 全 
2 
本 来 就 不 容 
人 空 制 不 可 组 


者 数据 库 


jg 画 数 是 一 个 带 副 作用 的 函数 ， 
， 该 动作 在 执行 的 时 候 会 有 副作用 ， 


! 读 取 某 些 信息 


也 许 De 


于 动作 执行 的 历 上 中。Haskell 的 


那么 纯粹 。 大 部 分 醒 
襄 并 不 影响 匡 歼 式 编程 相 i 


吾 言 不 要 求 凋 
人 和 在 组 合 能力 方 面 的 人 西数 式 编程 


ae ' 却 显得 


人 们 为 并 发 编 


概 会 用 基于 的 同步 机 


i 
下 


J 模型 ， 其 固有 的 不 确 
Hh 具有 原子 性 的 操作 ，3 


或 的 研究 考 要 竭力 发 明 一 


STM (S 
的 一 条 
完成 程序 
作 的 能 力 。 


Transactional Memory， 软件 


发 控制 结构 。 ”STM 提供 


了 一 种 类 1 
器 控制 。STM 的 首要 优点 ， 


一 段 Haskell 代 码 来 


让 


更 好 的 并 发 控制 # 


事务 内 存 ) 
以 于 数据 库 事 


ye 


已 经 习惯 成 自然 。 副 作用 放 在 函 


水 。 如 果 现 在 让 你 设计 一 个 打算 在 
来 完成 设计 。 
FE 更 使 设计 难 上 加 难 。 基 于 锁 的 并 
F 不 能 保证 组 合 之 后 仍然 满足 原子 


副作用 的 函数 在 签名 中 


设计 中 要 考虑 并 发 性 


象 。 


已 经 被 Haskell 、 


Clojure 等 语言 成 功 实现 
可 以 代替 锁 同 步 机 制 


站 ae 


点 


具体 说 明 。 下 面 的 片段 实现 了 


子 操作 组 合成 更 大 的 原子 操 


不 


户 之 间 转 账 的 原子 操作 。 


transfer :: 


Account -> Account -> Int -> IO () 
transfer from to amount 
= atomically (do { deposit to amount 


; withdraw from amount }) 


民 
和 


公 | 


目 


使 你 不 大 熟悉 Haskell 语 言 ， 关 急 着 去 买 相关 了 


Hwithdraw 这 两 个 原子 操作 
作 transfer 。 


在 本 书 第 2 部 分 
E 够 组 合 


pe 


各 何 通过 组 合子 实现 商 


在 Haskell 组 合子 atomical1ly 的 保障 下 ， 


BB 籍 。 这 有 段 从 常 


层次 抽象 时 ， 双 


文 个 主题 将 


观 ， 不 难看 出 deposit 


组 合成 一 个 更 大 的 原子 操 


会 反复 出 现 。 只 有 当 你 


， 改 善 抽象 的 表现 力 才 是 一 个 可 以 企及 的 


标 。 
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附录 B 元 编程 与 DSL 设 计 


元 编程 技术 和 常常 与 DSL 设 计 联系 在 一 起 。 利 用 元 编程 技术 ， 我 们 能 够 实现 让 代码 生成 代码 。 我 们 
设计 DSL 时 ， 可 以 利用 语言 的 运行 时 设施 或 编译 时 设施 生成 最 终 的 代码 。 但 这 些 生成 的 代码 可 能 
繁复 之 极 ， 又 刻板 生硬 且 难 以 阅读 。 本 篇 附 孙 主要 探讨 一 些 适合 于 DSL 设 计 的 常用 元 编程 技巧 ， 
假如 能 够 利用 好 它们 ， 将 非常 有 利于 提高 DSL 的 表现 力 和 简洁 度 。 


B.1DSL 中 的 元 编程 


我 们 从 2.1 市 得 知 Groovy 语 言 具 有 强大 的 元 编程 能 力 ， 用 它 实现 的 DSL 的 表现 力 远 远 超过 相应 的 

Java 实 现 。 Groovy 和 Ruby 这 类 语言 言 允许 我 们 动态 地 调整 对 象 的 运行 时 行为 。 对 象 在 运行 期 间 获 得 
的 各 种 机 能 使 其 语义 具备 非常 高 的 可 塑性 。 这 些 动 态 行为 受 元 MOP (MetaObject Protocol， 对 象 协 
议 ) 支配 ， 并 在 语言 的 运行 时 得 以 实现 (参见 B.3 市 文献 [5])。 语 言 的 元 对 象 协议 决定 了 语言 各 构 
成 元 素 的 扩展 性 语义 。 下 面 对 编 程 语言 的 MOP 做 进一步 的 解释 。 


定义 ”元 对 象 是 一 种 用 来 操纵 其 他 对 象 的 行为 的 。 有 些 OOP 语 言 有 “元 类 ”的 概念 ， 由 其 负 
责 各 种 类 的 创建 和 操作 。 为 了 履行 职责 ， 开关 蚌 要 全 有 与 类 有 关 的 一 切 信息 ， 如 类 型 、 接 口 、 
方法 、 扩 展 对 象 等 。 


语言 的 MOP 决 定 了 用 该 语言 写成 的 程序 的 扩展 性 语义 。 程 序 的 行为 取决 
容 在 编译 或 运行 时 会 被 扩展 也 取决 于 MOP 。 


元 编程 可 以 通过 编写 程序 来 产生 新 的 程序 ， 也 能 改变 已 有 程序 的 行为 。 在 Ruby 和 Groovy 等 OO 语言 
里 ， 元 编程 能 够 扩展 既 有 的 对 象 模 型 ， 它 通过 添加 移 子 来 改变 既 有 方法 甚至 类 的 行为 ， 也 可 通过 
运行 时 的 内 省 机 制 置 入 新 的 方法 、 属 性 或 模块 。 而 在 Lisp 等 语言 中 ， 则 以 宏 作 为 元 编程 的 实现 手 
段 ， 在 编译 阶段 对 语言 进行 句法 层面 的 扩展 。 对 比 起 来 ，Groovy、Ruby 的 主要 元 编程 实现 形式 是 
运行 时 的 元 编程 ， 而 Lisp 的 元 编程 是 编译 时 的 元 编程 ， 且 不 会 引入 任何 额外 的 运行 时 负担 
(Groovy 及 Ruby 都 可 以 通过 库 来 实现 对 AST 的 显 式 操作 ， 这 是 一 种 编译 时 元 编程 ， 但 其 精美 程度 
不 可 与 Lisp 同 日 而 语 ， 其 原因 将 在 B.2 节 揭晓 。) Java 语 言 也 通过 标注 处 理 机 制 〈annotation 
processing) 和 面向 切面 编程 ( (aspect-oriented programming， 简 称 AOP) 的 途径 实现 了 元 编程 能 
; 完全 在 MOP 内 定义 其 扩展 机 制 。 


这 种 语言 能 用 代码 来 生成 代码 吗 ? 当 你 需要 决断 手头 的 语言 是 否 足 以 胜任 DSL 实 现时 ， 必 须要 问 
自己 这 个 至 关 重 要 的 问题 。 元 编程 可 以 拓展 宿主 语言 的 语法 ， 使 之 向 领域 用 语 靠拢 ， 用 在 DSL 设 
计 上 将 发 挥 极 大 的 威力 。 传 统 上 依赖 纯 内 山 方 式 实 现 DSL 语 义 的 静态 类 型 语言 ， 如 Haskell 和 
OCaml， 现 在 也 分 别 通过 Template Haskell (http://www.haskell.org/th/ ) 和 MetaOCaml 
(http://www.metaocaml.org/ ) 进行 扩展 ， 并 提供 了 类 型 安全 的 编译 时 元 编程 机 制 。 


tt tt 


Xt 


lt 


MOP， 程 序 中 哪些 内 


这 一 广 我 们 分 析 几 下 


i 


过 
乓 


已 


时 新 语言 的 基本 元 编程 能 力 及 其 在 DSL 设 计 中 的 作用 。 本 书 第 二 


分 对 这 


nk 


ll 


元 编程 特性 一 一 进行 了 深入 探讨 ， 同 时 提供 了 大 量 的 应 用 实例 。 


B.1.1 DSL 实 现 中 的 运行 时 元 编程 


计 
证 


对 于 DSL 的 宿主 语言 来 说 ， 是 否 支 持 元 编程 这 种 语言 特性 为 什么 如 此 重要 ? 因为 元 编程 令 语 言 拥 
展 的 能 力 ， 如 果 我 们 用 一 种 可 扩展 的 语言 来 实现 DSL， 那 么 DSL 就 会 自动 地 获得 扩展 能 力 。 


相当 


话 或 许 不 好 理解 ， 我 们 可 以 用 一 些 例 子 来 辅助 说 明 什么 是 所 谓 的 扩展 性 。 


图 B-1 显 示 了 一 种 支持 运行 时 元 编程 的 语言 的 DSL 执 行 模型 。 如 果 语 言 的 MOP 人 允许 对 各 种 核心 语言 
特性 进行 扩展 ， 那么 我 们 可 以 在 DSL3 实现 中 利用 这 种 能 力 去 改变 和 扩展 一 众 关 联 对 象 的 核心 行 
为 。 这 样 ，DSL 与 MOP 携 手 将 复杂 的 实现 隐藏 起 来 ， 从 而 使 表面 语法 得 以 保持 简洁 。 如 图 B- 2 


示 ， DSL 脚 本 通 通过 DSL 实 现 的 解 汉 ， 并 在 核心 语言 运行 时 及 语言 元 编程 行为 机 制 的 共同 作 


图 B-1 


紧凑 的 表面 语法 


. 简洁 
Pa Li 语言 运行 时 


。 精炼 
Ds 本 | 中 


DSL 实 现 


ee 


语言 MOP 


扩展 核心 对 象 的 途径 : 


。 拦截 方法 

。 合成 方法 

。 放置 钧 子 
发 挥 MOP 的 作用 ， e。 (对 以 数据 形式 置 人 的 代码 ) 求 值 
a 。 扩展 元 对 象 


看 言 元 模型 在 DSL 执 行 中 承担 的 角色 


从 上 国 


下 的 抽象 模型 中 ， 我 们 可 以 了 解 元 编 4 程 在 DSL 执 行 过 程 所 扮演 的 角色 。MOP 对 增强 语言 的 


过 项 力 有 着 举足轻重 的 的 作用 ， 我 们 可 以 通过 回顾 第 2 章 Groovy 实 现 的 交易 指令 处 理 DSL 来 说 明 这 
一 点 。 图 B-2 标 示 了 其 中 的 关键 点 。 


图 B-2 


向 Integer 动 态 注入 方法 


newOrder.to.buy(100.shares.of ('IBM') { 
limitPrice od 


allOrNone true 
valueAs {gty, 入 Price -> qty * unitPrice - 500} 


fe ssing 合 成 方法 


动态 调用 闭 包 的 cal1l () 方 法 


Groovy 实 现 的 交易 指令 处 理 DSL 中， 元 编程 发 挥 作用 的 几 处 关键 点 


图 B-2 中 每 


都 在 Groovy MOP 所 定义 的 元 编程 机 制 下 发 生 了 对 核心 语言 抽象 


的 动态 修改 > 
不 增加 任 本 所 提示 人 狂 生 


修改 和 展 都 隐藏 


B.1.2 DSL 实 现 中 的 编译 时 元 编程 


我 们 从 第 2 间 的 作 
序 行为 。 代 码 生 成 、 
Groovy 和 Ruby 的 
纵 程 序 。 我 们 可 了 


得 知 ， Groovy MOP 通 过 扩展 核心 语言 的 语义 来 实现 在 运行 时 期 间 的 动态 程 
法 在 程序 开始 执行 后 发 生 的 ， 这 意味 着 


、 消息 拦截 这 些 


FDSL 实 现 之 内 ， 对 外 的 兆 约 则 保持 简洁 精炼 ， 并 且 


编译 时 元 编程 的 这 些 能 
规划 应 该 是 语言 


元 对 象 都 是 语言 的 运行 时 产 


构造 ， 操 作 编译 


0 


设计 的 一 个 主要 目标 。 ”的确 ， 


地 向 着 需要 的 方 让 


语法 宏 (syntactic macro) 是 最 普通 的 一 和 


很 大 的 差异 ， 有 像 Ci 


言 预 处 理 器 那样 简 生 


Haskel 、M 
及 编译 时 元 


， 它 介 


译 时 元 编程 允许 我 们 在 编译 期 间 构 造 和 操 


换 ， 有 针对 性 地 对 应 用 进行 优化 。 
设想 (参见 B.3 节 文献 [6]) : “对 发 展 的 


家 译 时 元 编程 ， 让 语言 的 语法 平 } 


编译 时 元 编程 形式 。 不 同 语言 的 宏 在 复杂 度 和 能 力 上 有 


的 文本 2 ,也 和 有 


等 办 太 关 型 滞 言 那样 在 AST 层 


像 各 种 Lisp 变 体 和 Template 


除了 宏 ， 有 些 语言 还 提供 其 他 农 靠 预 处 理 器 的 编译 
(AOP) 和 标 汶 处 理 机 制 。 像 Groovy 和 Scala 等 i 

AST 的 方式 获得 。 这 些 编译 时 元 编 

点 是 以 Lisp 语 言 家 族 为 代表 的 基于 宏 的 方案 。 

1.C++: 模板 

模板 是 C++ 语言 L 制 。C++ 模 板 通过 多 

生成 能 力 。 模板 这 9 编程 形式 在 科 学 和 数值 i i 

的 内 联 版 本 ， 0 循环 展开 等 技巧 来 优化 算法 


表达 式 模 板 (expression oo 也 是 一 种 有 用 也 


以 有 效 地 蔡 代 C 风 格 的 回调 。 回 调 画 数 不 可 避免 地 


] 对 精炼 DSL 的 设计 二 要 


FE 的 精巧 的 宏 。 本 节 我 们 将 详细 探讨 宏 
虽 大 的 推动 作 jo 


式 ， 例 如 C++ 模 板 、 面 向 切面 编程 
二 以 操作 
i 程 方式 我 们 会 在 下 文 一 一 谈 及 ， 


讨论 的 重 


司 对 数据 结构 的 操纵 ， 获 得 弹 涅 大 的 代码 


方面 的 应 用 十 分 成 功 ， 被 用 来 生成 算法 


种 逻辑 和 数 表 达 式 直 接 内 联 在 


Blitz++ (参见 B.3 节 文献 [2]) 就 


运用 “表达 式 模板 ， 


进而 产生 优化 的 定制 
把 涉及 向 量 、 等 高 


| 算 内 核 。 将 这 种 能 够 在 编 
高 阶 数据 结构 的 运算 代码 写成 下 于 


元 编程 技巧 (参见 B， 3 节 文 献 [1]) ， 它 可 
带 来 画 数 调用 的 系统 开销 ， 而 表达 式 模板 把 
函数 体内 ， 因 而 避免 了 相应 的 系统 开销 。 C++ 数组 处 理 类 库 


“的 技巧 来 建立 立 数组 ; 运算 表达 式 的 语法 分 析 树 ， 并 


代码 的 技巧 于 DSL 设 计时 ， 我 们 可 以 


Vector<double> result(20), x(20), y(20), z(20); 
result = (x + y) / 2; 


< 如 吉 


继 者 ， Se 


过 宏 来 进行 编译 
2.Lisp 和 Clojure: 


Lisp 的 宏 机 制 提供 了 最 为 成 熟 完善 的 编译 时 元 编 
贰 乏 ; 相对 地 ，Lisp 的 宏 可 以 全 


当 Lisp 表 达 式 富 2 
码 经 过 处 理 ， 


了 通过 模板 的 实例 化 来 生成 代码 ， ee. 


dll. a 


守重 载 也 是 一 种 原始 的 元 编程 形式 。 作 为 C 语 言 的 
i 之 前 的 预 处 理 器 来 负责 对 宏 的 处 理 。 通 


还 有 另外 群 语 百 


一 小 节 要 谈 到 的 Lisp 语 言 言 家 族 。 


全 面 调动 语言 的 一 切 扩 甩 
i Lisp 纲 1 i 译 器 不 对 调用 的 


言 成 分 来 蔡 换 处 下 


语言 的 宏 局 限于 文本 替换 操作 ， 表 现 力 


数 进行 求 值 ， 而 是 原样 传递 给 宏 代码 。 宏 代 
J 宏 成 分 ， 然 后 编译 器 对 新 的 表达 式 进行 


求 值 。 对 
构成 ， 而 


完全 与 


字 


代码 /文本 | 


宏 调用 的 整个 转换 过 程 完全 在 编 
程序 的 AST 合 为 一 体 。 图 


符 


i 译 时 


进行 ， 转 换 产 生 的 代码 完全 


S 表 达 式 


读 取 程 序 


求 值 器 /编译 器 [一 


转换 为 有 效 的 


Lisp 语 


代码 生成 


图 B-3 ” Lisp 语言 通过 宏 来 提供 编译 时 元 编程 能 力 


除了 语法 宏 之 外 ，Common 
着 统一 的 表达 形式 ， 


它 的 递归 求 


Lisp 语 


言 还 


直 模 型 ， 


言 成 分 


宏 调用 


有 很 多 天 生 性 。 比 如 它 的 代码 和 数据 有 


它 的 代码 由 表 


会 给 元 编程 带 来 很 大 的 便利 。 


Clojure (http://www.clojure.org ) 是 一 种 
法 宏 来 进行 元 编程 。 
具有 与 Java 对 象 互 操 
之 道 。 而 有 


Common Lisp 一 样 ， 通过 话 ; 
与 Java 相 集成 ， 


演示 Lisp 语 言 的 DSL 设 计 


Rich Hickey 


乍 的 能 力 。 在 本 篇 余 


说 到 底 ，Clojure 语 言 
' 的 缘由 我 们 会 在 第 B.2 市 
编译 阶段 Lisp 宏 生成 代码 的 


现 


也是 一 和 


详 述 。 不 介 


在 就 计 我 们 来 对 这 个 过 程 作 一 


1Lisp 


SE 


过 和 


成 分 ， 


日 被 编译 器 求 值 的 每 
务 是 根据 某 些 条 件 ， 将 交易 + 


点 深入 的 探索 ， 仔 细 
个 步 又 。 假设 我 们 有 这 


这 些 例子 所 代表 的 编程 范式 ， 


村 Clojure 在 JVM 上 实现 ， 


们 将 


。Lisp 语 言 本 身 的 设计 就 恰好 满足 DSL 实 现 对 


达 式 而 非 语句 构成 ， 类 似 这 样 的 语言 特性 


呼 。 


1 有效 的 Lisp 语 言 成 分 
B-3 简 要 示意 了 Lisp 编 译 时 元 编程 机 制 的 构成 。 


发 的 ， 在 JVM 上 的 Lisp 实 现 。Clojure 也 像 
所 以 它 可 以 无 障碍 地 

Clojure 代 码 片 
Lisp 来 称 


段 来 
因为 


介意 的 话 ， 现 在 请 再 


地 观察 宏 展开 过 程 1 


表现 力 的 追求 ， 其 


一 


非常 简略 地 描绘 了 预 


已 日 
上 令 提 交 给 


文 样 一 段 处 理 客户 交易 指令 


变换 产生 最 终 的 Lisp 
的 DSL， 它 的 任 


PD 


(make-trade order broker) 
(update-journal client)) 


(when (and (> (value order) 1000000) 
(is-premium-client? client)) 


片段 


(的 when 是 


(list “if test (cons ‘do 


当 Lisp 编 译 器 遇 到 宏 调 用 时 ， 


只 有 源 代码 。 因 此 它 将 作 人 以 下 三 个 Lisp 列 表 ， 


(defmacro when [test & body] 


body) ) ) 


于 着 


并 没有 可 以 用 来 对 形 参 


求 值 
不 经 求 值 ， 原 样 地 传递 给 宏 : 


的 运行 时 实 参 。 编 译 器 能 


到 的 


(make-trade order broker) 
(update-journal client) 


(and (> (value order) 1000000) (is-premium-client? client)) 


然后 编译 器 以 这 三 个 列表 成 分 为 实 参 运行 宏 。 形 参 test 被 绑 定 为 列表 成 分 (and (> (value 
order) 1000000) (is-premium-client? en 而 另外 的 (make-trade order 
broker) 和 (update-journal client) 成 分 则 被 绑 定 到 形 参 body 。 于 是 在 宏 定 义 体 内 的 反 
引号 表达 式 (backquote expression) 作用 下 ， 宏 被 下 面 展 开 之 后 生成 的 新 代码 取而代之 : 


(if (and (> (value order) 1000000) 
(is-premium-client? client)) 
(do 
(make-trade order broker) 
(update-journal client))) 


Common Lisp 的 宏 机 制 也 像 Groovy MOP 一 样 ， 存 在 一 个 代码 生成 的 过 程 ， 但 与 Groovy 不 同 的 地 方 
在 于 ， 这 个 过 程 发 生 在 预 编 译 阶 段 。 因 此 Lisp 运 行 时 绝对 不 会 遇见 任何 元 对 象 ， 在 它 面前 出 现 的 
全 部 都 是 有 效 的 Lisp 成 分 。 


3.Java: 标注 处 理 机 制 和 AOP 


Java 也 拥有 定 程 度 的 编译 时 元 编 i 程 能 力 ， 标 注 处 理 机 制 (annotation processing) 和 面向 切面 编程 
(AOP， 参 见 B.3 节 文献 [4]) 是 它 实施 元 编程 的 两 个 途径 。Java 程 序 里 的 标注 会 在 程序 构建 时 得 到 
处 理 ， 而 处 理 时 生成 的 代码 可 以 补充 或 修改 原本 的 程序 行为 。 


AspectJ (参见 B.3 市 文献 [3]) 是 Java 语 言 的 AOP 扩 展 ， 它 有 一 套数 量 不 多 但 威力 强大 的 程序 控制 结 
构 ， 可 以 插入 到 字 节 码 当 中 ， 从 而 向 既 有 程序 注入 新 的 行为 。 我 们 可 以 指定 程序 执行 路 径 ， 1 某 些 
明确 的 点 ， 称 为 连接 点 (join point) ， 向 这 些 点 注入 富有 新 行为 定义 的 通知 (advice) 。 连 接点 
的 集合 称 为 切入 点 (pointcut) 。 切 入 点 、 通 知 、 再 加 上 日 关 的 Java 成 员 定义 ， 就 构成 了 
AspectJ 的 模块 单元 切面 (aspect) 。 切 天 和 用 是 下 外 的 点 上 生成 代码 ， 相 当 于 给 Java 增 
加 了 一 套 元 对 象 协议 。 在 Java 语 言 下 ， 利 用 切面 来 实现 有 限 形态 De 例如 Java EE 框 

以 的 代表 Spring (http:/www.springframework.org ) 就 通过 这 种 途径 给 开发 者 提供 了 精干 的 领域 语 
言 ， 算 是 一 个 相当 成 功 的 范例 。 


B.2 作为 DSL 载 体 的 Lisp 


元 编程 和 代码 生成 可 以 造就 出 色 的 DSL 设 计 ， 这 一 点 我 们 已 经 在 第 2.3 节 有 过 详细 的 叙述 。 用 户 所 
期 待 的 出 色 的 DSL 设 计 ， 除 了 表面 语法 紧 恋 外 ， 还 要 具备 充分 的 领域 词汇 表达 能 力 。 这 就 要 求 答 
主语 言 必须 具备 充足 的 程序 转换 语义 ， 这 种 转换 可 在 编译 层面 进行 ， 也 可 在 运行 时 层面 进行 。 


我 们 从 2.3.1 小 节 得 知 ，Groovy 等 语言 利用 运行 时 MOP 生 成 代码 ， 并 通过 诸如 方法 合成 、 方 法 拦截 
等 元 对 象 操纵 手段 改变 程序 的 行为 。 但 运行 时 元 编程 确实 存在 性 能 方面 的 浆 病 ， 因 为 变换 涉及 的 
程序 结构 需要 通过 元 对 象 的 反射 和 内 省 来 实施 操纵 。 


Lisp 等 语言 通过 语法 宏 来 提供 编译 时 元 编程 能 力 ， 这 是 第 B.1 和 刚刚 讨论 过 的 。 正 是 由 于 语法 宏 的 
功劳 ，Lisp 运 行 时 完全 摆脱 一 切 元 结构 ， 执 行 Lisp 程 序 时 只 需 考 虑 核心 语言 运行 时 中 定义 的 有 效 
Lisp 语 法 成 分 即 可 。 这 个 特点 使 得 Lisp 元 编程 独树一帜 ， 也 使 得 语法 宏 成 为 实现 Lisp D5L 的 根本 。 
本 节 我 们 将 更 进一步 剖析 Lisp 程 序 的 构造 ， 以 图 理解 Lisp 在 实现 DSEL 的 方法 上 与 其 他 语言 的 区 别 。 


B.2.1 Lisp 的 特殊 之 处 


是 什么 原因 令 Java、C++ 这 类 语言 难以 实施 编译 时 元 编程 ? 要 想 有 效率 地 编译 时 元 编程 ， 我 们 需要 
在 程序 的 AST 上 执行 各 种 变换 操作 。 下 面 的 内 容 大 致 说 明了 抽象 语法 树 和 具体 语法 树 的 含义 。 


I 


总 在 大 多 数 语 言 9 
树 ) 。CST 真 实地 反 外 
后 ， 程 序 依次 经 过 扫描 
tree, 象 语法 笠 


义 的 实质 部 分 


ss J (concrete syntax tree, Ce 


， 我 们 编 和 号 的 程 订 部 会 人 


时 ) 


产生 的 一 切 元 。 然 


里 ， 生 成 所 
泽 阶 此 A 


请 的 AST a ge 
J 出 来 的 、 具 有 语法 意 


到 AST- 报 要 经 变换 


要 由 语言 的 语法 


而 语法 分 析 器 


， 所 有 这 些 变换 操作 都 


大 多 数 语 言 如 Java 或 Cr+ 者 用 字符 er 从 CST 产 生 AST 的 唯 


方法 是 通过 语法 分 析 器 ， 


没有 语法 4 分 析 器 可 供 


是 一 个 独立 的 入 决 在 程序 的 预 编译 阶段 
言 ， 如 第 9 章 简略 提 到 的 


Template ee 


缺席 的 情况 下 ， 这 些 语 
以 下 几 种 原始 的 手段 : 


。 像 C 语 言 那样 ， 
。 通 过 (Java) 标 ; 
。 像 AspectJ 在 Ja 


一 些 预 处 理 ， 


二 或 者 并 权 在 区 委员 过 信 和 
， 节 码 中 间 插入 另外 的 指令 


。) 于 是 ， 在 语法 分 析 器 


] 程 
3 语法 或 者 进 行 末 搞 译 时 的 得 序 灾 : 换 ， 就 只 能 通过 


有 C 语 言 背 景 的 读者 ， 


宏 的 窘迫 4 Re 。 语 


设施 也 已 经 贯 


的 抽象 语法 时 ， 闹 
到 目前 为 止 ， 本 篇 


够 成 为 Lisp 的 扩 
这 和 et 同 的 语言 盏 3 


B.2.2 代码 等 同 于 数据 


a 言 的 整个 设计 过 程 。 
注定 它 会 成 为 现在 的 样子 。 


来 的 混乱 、 痛 苦 和 小心 辟 翼 。C 语 言 
ie 目标 ， 而 且 相 关 的 支持 
pe 0 XJohn hn McCarthy 决 定 这 种 语言 言 要 能 够 访问 其 自身 


篇 基 a 谈论 宏 。 已 操纵 AST， 将 新 的 语 ? 


by 


co 言 里 


条 守 这 条 和 简单 的 设计 天 
滞 沁 是 一 个 极为 从 和 


达 形 式 即 可 。 


B.2.3 数据 等 同 于 代码 
门 可 以 通过 Lisp 的 特殊 成 分 quote ， 


我 


Nm Wt 


本 的 Lisp 成 分 。 宏 之 所 以 能 
让 “和 特 的 当 秆 各 学 在 首 PT 


吉 构 也 是 代码 本 身 的 AST。 这 条 规则 
对 而 广 之 ， te 


| 


那 和 我 们 高 习 像 疡 癌 代 从 和 


象 语法 ， 而 Ss 象 


F 何 元 程序 都 只 要 遵 “ 


了 这 种 J 一 的 表 


。 我 们 用 Lisp 制 造 的 任 


毫 不 费力 地 在 表示 代 


造 。Lisp 宏 即 为 这 和 有 


的 拓展 ， 形 成 一 种 5 


吾 言 构造 中 能 入 表示 数据 的 构 
法 思路 的 代表 例子 。 实 际 上 ， Lisp 将 它 数据 等 同 于 代码 的 范式 做 了 进一步 
于 编写 元 程序 的 完善 0 出 


引用 (quasiquotation) 9 Clojure 语 言 言 也 具备 


竺 Common Lisp 语 言 中 称 为 拟 
I 用 (syntax quote) 、 解 引用 


二 


(unquote) 和 接合 解 引 用 (splicing unquote) 几 部 分 } 构 成 。 我 们 可 以 
语言 中 defstruct 宏 的 定义 : 


下 面 的 例子 ， 这 是 Clojure 


(defmacro defstruct 
[name & keys] 
‘(def ~name (create-struct ~@keys))) 


语法 引用 由 反 引 号 (、 


的 引用 相同 。 


定 成 分 的 引用 ， 


用 是 指示 Lisp 将 紧 跟 在 反 引 号 之 后 成 分 ) 视 为 数据 ， 效 果 与 一 般 


但 — 可 以 在 证 
。 Common Lisp 语 言 的 拟 引 用 也 


法 引用 的 成 分 内 部 ， 用 解 引 


符号 (~ ) 指示 Lisp 停 止 对 指 
有 类 似 的 作用 ， 我 们 可 以 用 它 


生 几 


fay 


来 定义 数据 模板 ， 其 中 一 部 分 数据 是 固定 的 ， 而 另 一 些 数据 则 是 计算 得 出 的 。 这 一 套 语 言 特 
乎 相当 于 在 Lisp 的 语法 里 内 髓 一 种 完整 的 模板 子 语言 。 


第 5 章 详 细 介绍 了 元 编程 的 实践 ， 并 对 Lisp 这 种 对 代码 和 数据 一 视 同 仁 的 特性 进行 了 深入 探讨 。 如 
果 你 还 没有 习 恒 Lisp 的 各 种 编程 范式 ， 那 么 现在 可 以 停 下 来 ， 好 好 想象 一 下 这 种 特性 会 给 代码 生 
成 带 来 怎样 的 精彩 和 活力 。 


B.2.4 简单 到 只 分 析 列 表 结构 的 语法 分 析 器 


Lisp 是 一 种 语法 极其 精简 的 语言 。Lisp 的 语法 分 析 器 之 所 以 如 此 简单 ， 是 因为 它 需 要 分 析 的 就 只 有 
列表 而 已 ! 无 论 是 数据 还 是 代码 ， 其 表达 的 语法 都 是 统一 的 列表 结构 。 其 至 我 们 所 关 ; 心 的 Lisp 
宏 ， 其 宏 体 部 分 也 是 一 个 列表 结构 。 


具备 强大 编译 时 元 编程 能 力 的 Lisp， 是 一 种 同 像 (homoiconic) 的 语言 。 这 一 点 跟 Lisp 之 所 以 具有 
卓越 的 DSL 实 现 能 力 有 关系 吗 ? 答案 很 简单 : 我 们 可 以 贯彻 Lisp 的 “ 同 象 ， 才学 把 DSL 也 表达 成 一 
个 列表 结构 ， 用 宏 来 组 织 DSL 中 出 现 的 重复 性 的 构造 和 模式 。 这 样 设计 出 来 的 DSL 不 需要 任 
何 额外 的 语法 分 析 器 ， 可 以 将 一 切 都 交 给 Lisp 本 身 的 语 法 分 析 器 去 处 理 ， 。 宏 可 以 帮助 我 们 突破 Lisp 
成 分 的 形式 限制 ， 拓 展 出 新 的 语法 和 语义 ， 向 领域 用 语 靠拢 。 图 B-4 形 象 地 说 明了 用 Lisp 语 言 作 为 
DSL 载 体 的 基本 思路 。 


定义 ” 同 像 (homoiconic) 这 个 伊 有 介 事 的 术语 ， 描 述 的 是 语言 的 一 种 性 质 。 如 果 一 种 语言 的 
程序 ， 能 够 用 它 本 身 所 能 处 理 的 一 和 数据 结构 表示， 我 们 就 说 这 种 语言 是 “ 同 像 " 的 ， 以 Lisp 为 
例 ， 它 用 列表 这 种 结构 来 统一 地 表示 代码 和 数据 。 


DSL 实 现 
转换 后 的 有 效 Lisp 语 言 成 分 Sp 二 


jsp 语法 4 二 | Lisp 宏 
-i | 
| Lisp 语 言 成 分 


图 B-4 ”作为 DSL 载体 的 Lisp。Lisp 宏 被 转换 为 有 效 的 Lisp 成 分 ， 然 后 送 到 编译 器 


你 能 够 从 图 B-4 看 出 Lisp 是 怎 杆 集 外 部 DSL 和 内 部 DSL 于 一 身 的 吗 ? 一 方面 ，DSL 里 面 含有 外 部 

语法 ， 也 就 是 各 种 宏 。 宏 不 是 有 效 的 Lisp 成 分 。 另 一 方面 ， 我 们 不 需要 使 用 任 何 外 部 的 人 析 器 去 

人 些 外 部 语法 。 列 表 结 构 串 起 了 所 有 的 环 节 而 自 Ti 本 身 的 语法 分 析 器 就 是 万 能 的 D5SL 处 理 
。 我 们 在 此 讨论 的 Lisp 语 言 的 众多 特点 几乎 使 它 成 为 一 种 完美 的 DSL 实 现 语言 。 


元 编程 是 让 我 们 通过 编写 程序 来 编写 程序 的 一 种 技术 。Lisp 用 它 的 编译 时 宏 机 制 来 实现 元 编程 。 
第 B.1 市 是 对 编译 时 元 编程 的 全 面 综述 ， 而 本 节 则 针对 Lisp 这 种 最 早 \ 备 元 编程 能 力 的 语言 之 一 ， 
讨论 了 该 语言 下 的 具体 实现 。 只 有 对 “元 ”的 力量 有 了 透彻 的 理解 ， 我 们 才能 在 现实 的 DSL 实 现 中 
得 心 应 手 地 运用 这 种 范式 ， 并 领略 其 中 的 妙 处 。 第 4 章 和 第 5 章 准备 了 大 量 动 态 语言 的 的 编译 时 和 
运行 时 元 编程 例子 ， 所 用 语言 包括 Ruby、Groovy 和 Clojure 。 
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附录 C Ruby 语 言 的 DSL 相 关 特 性 


本 篇 附录 将 帮助 你 熟悉 Ruby 语 言 中 有 助 于 DSL 开 发 的 一 些 特性 。 请 不 要 把 本 附录 看 作 一 篇 细致 而 
的 语言 综述 。 如 果 希 望 完整 而 详细 地 探讨 Ruby 语 言及 其 语法 ， 可 以 参阅 第 C.2 市 所 列 的 文献 资 


C.1 Ruby 语 言 的 DSL 相 关 特 性 


Ruby 是 一 种 动态 类 型 的 OO 语言 ， 它 的 反射 式 元 编程 和 生成 式 元 编程 能 力 都 非常 强 。Ruby 的 对 象 
模型 允许 我 们 通过 对 元 模型 的 反射 ， 在 运行 时 改变 对 象 的 行为 。 它 在 运行 时 生成 代码 的 元 编程 能 
me de 。 表 C-1 简 要 概括 了 那些 令 Ruby 成 为 优秀 的 DSL 实 现 语 


表 C-1 Ruby 语 言 特性 汇总 


类 和 对 象 


class Account 
def initialize(no, name) 


Q@no = no 
Ruby 是 面向 对 象 的 语言 。 我 们 可 以 定义 类 以 及 类 中 的 实例 变量 | 。@name = nane 
和 方法 def toss 
一 个 Ruby 对 象 有 一 组 实例 变量 ， 并 与 一 个 类 关联 ee no: #{@no} name: #{@name} 
end 

一 个 Ruby 类 是 class 类 的 实例 。 它 除了 拥有 对 象 所 拥有 的 一 
切 ， 还 含有 一 组 方法 定义 ， 以 及 指向 超 类 的 一 个 引 

、 本 Be 让 f 林 日 initialize 是 一 个 特殊 的 方 法 ， 会 在 我 们 调用 Account .new 时 被 
我 们 在 使 用 Ruby 语 言 设计 DSLI 时 ， 建 模 领域 实体 是 一 种 | 执行 。 它 的 作用 是 在 对 象 秩 得 初 姑 内 在 分 配 之 后 ， 没 沁 寻 对 旬 
惯常 的 做 法 的 状态 


H 


@no 和 @name 设置 类 的 实例 变量 。 变 量 使 前 不 必 事 先 声 明 
单 件 (singleton) 


accnt = Account.new(12, "john p. ") 
def accnt.do_special 
## 
Ee end 
我 们 可 以 定义 只 针对 单一 特定 对 象 的 方法 ， 是 为 单 件 方法 。 accnt ,do_special ## runs 
acc = Account .new(23, "peter s. ") 
Ruby 类 中 的 方法 定义 其 实 也 都 是 一 些 单 件 方法 而 已 ， 它 们 是 针 |acc.do-special ## 错误 | 
对 潜 个 cless 类 的 实例 而 定义 的 。Ruby 的 单 人 也 称 为 类 方法 


do_special 方法 只 针对 accnt 实例 定义 。 若 在 这 个 单 例 内 引 
self ， 将 会 指向 accnt 实例 


a DSL 成 功 的 秘诀 。 es 


] 


， 人 多 许 我 们 接触 运行 时 的 元 对 象 并 


元 编程 


class Account 
attr_accessor :no，:name 
end 


attr_accessor 是 一 个 运用 了 反射 式 运行 时 元 编程 手法 的 类 方法 

它 会 为 参数 中 输入 的 属性 生成 相应 的 读 写 访问 方法 。 这 个 例 
子 充分 展示 了 元 编程 对 于 表面 语法 的 精简 效果 ， 那 些 刻板 机 械 
的 部 分 都 被 放 到 运行 时 去 生成 


class Trade &lt ActiveRecord: :Base 
has_many :tax_fees 


end 

这 个 例子 用 到 了 2 Eo。 这 是 个 类 方法 
来 表达 实体 间 的 一 对 多 关 日 在 施加 该 关 条 的 时 候 运 了 反 
射 式 元 编程 


开放 类 


i 


ds 任 
2 去 


弃 
Ht 


| 


称 作 猴 子 补 丁 ， 一 般 认为 它 是 Ruby 最 为 强大 


区 
牙 

间 
t 


局 命名 空间 ， 


class Integer 
def shares 


Ruby 的 开放 类 可 以 设计 一 些 辅助 性 的 成 分 ， 为 DSL 的 语法 
构造 提供 便利 。 例 如 我 们 可 以 打开 Integer 类 ， 并 向 其 中 
shares 方法 。 这 样 DSL 的 用 户 就 可 以 按照 平常 的 说 话 习 1 
代码 写成 2 shares 。 这 样 做 的 缺点 是 所 a 类 的 使 用 者 都 
会 被 该 猴子 补丁 所 影响 。 请 务必 小 心 这 


证 敲 直 


eh 


求 值 操作 


Ruby 可 以 在 程序 执 全 


Ruby 的 几 
段 如 我 们 传递 的 代码 块 不 需 
4 ， 那 么 DSL 的 i 


FP 间 随时 分 析 、 执 行 一 
最 有 力 的 Ruby 元 编程 特性 


种 求 值 操 


至 


用 方法 区 晤 民明 多 指 呈 大生 


看法 也 会 显得 简洁 一 些 


求 值 操 作 分 


季 单 或 代码 块 。 
instance_eval 一 -一 仁 


上 或 代码 块 


别 可 以 


个 类 也 


个 模块 的 上 下 文 内 求 值 一 


A 


天 实例 的 上 下 文 内 求 值 一 个 字 


革 当 前 上 下 文 内 求 值 一 个 字符 串 或 代码 


class Account 
end 
Account .class_eval do 


这 里 的 上 下 文 是 Account 类 。class_eval 将 在 Account 类 上 创建 
一 个 实例 方法 


Account .instance_eval do 
def open 
### 


end 
end 


这 里 的 上 下 文 是 self 所 指 的 单 件 类 。instance_eval 将 在 Account 
上 产生 一 个 单 件 方法 (或 者 叫做 类 方法 ) 


模块 


是 把 一 些 相 关 的 程序 制品 ， 
蝎 作 为 一 个 mixin 组 伯 长 。 


F 混 入 到 立 


竺 Ruby 语 言 


bh 还 起 到 命名 空 


module Audit 
def record 


个 模块 定义 了 一 个 新 的 命名 空 zs 间 来 收纳 所 有 与 审计 相关 的 万 
法 我 们 希望 哪个 类 具有 审计 功能 ， 就 把 它 混 入 哪个 类 : 


class Account 
include Audit 

## 此 处 可 使 用 record 方 法 
end 


代码 块 (block) 
Sum = 0 
[1, 2, 3, 4].each do |value| 
sum += (value * value 
Ruby 的 代码 所 是 一 种 代码 的 构 半 单元 ， 有 点 类 似 于 区 名 方法 ， en . 


可 适时 经 过 具体 化 (reification) 之 后 执 行 。 它 也 像 方法 一 样 可 |puts sum 
以 接受 参 效 认 和 
Ruby 的 代码 块 是 lambda 的 同义词 ， 可 以 用 来 实现 高 阶 函 数 竖 线 括 起 来 的 |value| 即 是 传递 给 代码 块 的 参数 
Ruby 数 组 的 each 方法 接受 一 个 代码 块 作 为 它 的 参数 
用 hash 充 当 变 长 参数 列表 
def foo(values) 
## Values 是 一 个 hash 
end 
而 类 (的 调 小. 
Ruby 可 以 很 方便 地 实现 不 确定 长 度 的 方法 参数 列表 2 
oo(ea > 710 => 
村 万 芒 人 这 种 惯用 法 的 应 用 示例 
这 种 手法 可 以 提高 DSL 代码 的 可 读 性 ， 同 时 令 Builder 模 式 的 实 | class Trade 
现 变 得 极为 简单 has_many :tax_fees, 


:class_name => "TaxFee", 
:conditions => "valid_ flag = 1", 
:order => "name" 

end 


鸭子 类 型 


我 们 


在 
应 
忠 


Ruby 语 吾 宇 
的 消 , 


日 
是 


于 类 型 来 设计 抽象 ， 而 是 基于 
象 响 应 表示 鸭子 叫 的 quack 消 


上 | 抽 


已、 。 如 果 个 


只 卜 了 L 


这 种 写法 在 Java 语 言 里 


参数 指定 明确 的 类 型 


天 


日 
全 


vv， 


行 不 通 的 。Java 语 言 要 求 我 们 给 


class Duck 
def quack 
### 


end 
end 
class DummyDuck 
def quack 
## 
end 
end 
def check_if_quack(duck) 
duck.quack 
end 


不 管 参数 中 输入 的 实例 


属于 puck 类 还 是 DummyDuck SS 


check_if_quack 方法 都 外 
quack 消 ) 


得 到 正确 的 结果 ， 


Ey 
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附录 D Scala 语 


言 的 DSL 相 关 特 性 


为 两 者 都 响应 


本 篇 附录 将 帮助 你 熟悉 Scala 语 言 中 有 助 于 DSL 开 发 的 一 些 特性 。 请 不 要 把 本 附录 看 作 一 篇 细致 而 


全 面 的 语言 综述 。 如 果 硕 望 


D.1 Scala 语 言 的 DSL 相 关 特 性 


Scala 和 是 一 种 在 JVM 上 运行 的 ， 兼 有 面向 对 象 和 函数 式 编程 范式 的 语言 。 由 于 Scala 与 Java 共 享 对 象 


模型 (以 及 很 多 其 他 方面 ) ， 


完整 而 详细 地 探讨 Scala 语 言及 其 语法 ， 可 以 参阅 第 D.2 市 所 列 的 文献 资 


断 能 力 ， 还 因为 综合 了 OO 下 
表 D-1 ”Scala 语言 特性 汇总 


所 以 两 者 的 互 操作 性 十 分 优秀 。Scala 的 语法 简练 优美 ， 具 有 类 型 推 


0 训 函数 式 两 种 范式 ， 因 


而 拥有 十 分 丰富 的 抽象 设计 机 制 。 


基于 类 的 OOP 


Scala 是 一 种 面向 对 象 的 语言 。 我 们 可 以 定义 含有 实例 变量 和 方 


法 的 类 。 除 了 类 之 外 ，Scala 还 有 很 多 其 他 的 表示 类 型 的 语言 构 


。 本 篇 附录 会 尽量 介绍 它们 


造 适合 用 于 抽象 设计 ， 而 且 每 一 种 都 有 其 自身 的 特点 和 应 用 范 


按照 Scala DSL 设 计 的 一 般 习惯 ， 无 论 类 还 是 别 的 能 够 把 若干 相 


EY 


关 功 能 组 织 成 一 体 的 语言 构造 ， 都 常常 被 用 来 建 模 领域 实体 


类 定义 语法 的 详情 请 参阅 第 D.2 节 文献 [1] 


class Account(val no: Int, val name: String) { 
def balance: Int = { 
//.. 实现 
y 
7 
} 


类 的 定义 可 以 加 上 参数 。 在 上 面 的 代码 片段 中 ，no 和 name 前 玫 
的 val 意味 着 它们 都 是 不 可 变 的 ， 不 允许 再 次 赋值 


balance 是 一 个 方法 。 它 没有 任何 参数 ， 返 回 值 类 型 为 Int 


napply() 涩 兴 


S 


实现 一 些 参与 代数 运算 的 数据 类 型 


Case 类 的 另 一 个 作用 是 参与 模式 匹配 。 它 最 常 也 最 习惯 被 用 来 


变 特征 ， 我 们 在 设计 DSL 的 


于 case 天然 地 具有 各 方面 的 不 可 
时 候 常 吊 党 蕊 来 洋 


纲 不 可 变 的 值 对 象 


Tr 


Case 类 
天 定义 前 面 加 上 case 字样 ， 编 译 器 就 会 生成 一 种 附带 诸多 
福利 的 象 。 这 种 抽象 Scala 称 为 case 类 。 对 于 一 个 case 类 ， 编 
译 器 会 自动 施行 以 下 动作 
。 转换 构造 器 的 参数 为 不 可 变 的 val 。 不 希望 被 转换 的 参数 |abstract class Term 
可 明确 标明 为 var case class Var(name: String) 
。 为 该 类 实 Mequals 、 hashcode 和 tostring 天 extends Lenm 
”和 放 合 用 简写 形式 来 测 用 构造 器。 切 始 化 六 类 的 一 个 对象 i 
时 ， 不 需要 写 出 new 关键 字 。 编 译 器 会 产生 半 随 X 
象 ， 含 有 用 来 构造 对 象 的 apply() 方法 和 提取 构造 参数 的 


准 


按照 这 段 case 类 定义 ， 我 们 可 以 用 val p = var("p") 的 写法 来 
例 化 一 个 对 象 ， 不 需要 明确 写 出 new 关键 字 


ait 


Trait 也 是 Scala 表 达 抽 象 的 一 种 手段 。 


它 和 Java 的 书 


(interface) 类 似 ， 人 允许 将 具体 的 实 


钢 留 给 具体 类 去 完成 。 但 


trait 有 一 点 和 接口 不 一 样 ， 它 可 以 选 
认 的 实现 


择 性 地 给 一 部 分 方法 提供 默 


trait 是 Scala 实 现 mixin 的 机 制 ， 也 提 人 


了 一 条 正确 实现 多 重 继承 


的 途径 


trait Audit { 
def record trail { 
//.. 实现 


3 

def view_trail // 保持 开放 
} 
class SavingsAccount extends Account 
with Audit { 

Sh 


} 


Trait 善 于 设计 开放 的 、 不 绑 定 到 特定 实现 的 、 可 重用 的 抽象 。 
在 上 面 的 trait 定 义 里 ，view_trail 方法 保持 开放 的 状态 ， 留 待 混 
入 该 trait 的 抽象 去 实现 


高 阶 画 数 和 闭 包 


我 们 可 以 把 一 个 函数 作为 参数 传递 给 


在 Scala 语 言 里 ， 函 数 与 其 他 的 可 作为 值 传递 的 类 型 完全 平等 


val hasLower = 
bookTitle.exists(_.isLowerCase) 


为 一 个 贡 数 。 责 数 也 可 以 


def foo(bar: (Int, Int)=>Int) { 


返回 另 一 个 函数 。 函数 和 值 的 等 同性 赋予 了 Scala 实 施 画 数 式 编 | /7… 
程 的 强大 能 } 
高 阶 画 数 可 以 精简 代码 ， 且 便于 我 们 在 DSL 中 表达 正确 的 动词 
语 》 第 一 个 例子 的 exists 方法 通过 它 的 参数 获得 一 个 函数 来 处 理 字 
， I 符 串 中 的 每 一 个 字符 。 如 果 用 Java 语 言 来 实现 同样 的 功能 将 会 
闭 包 能 让 我 们 少 写 一 些 类 和 对 象 ， 多 用 函数 式 的 程序 构造 烦琐 很 多 
第 二 个 例子 演示 了 Scala 的 函数 字面 量 (function literal) 语法 
模式 匹配 
def foo(i: Int) = i match { 
case 10 => //.. 
Case 2 => 
case _ => 
由 
这 段 代 码 使 用 Scala 的 语法 简单 复制 了 Java 语 言 的 switch/case 语 
句 。 其 实 模式 匹配 还 有 很 多 别 的 用 
val obj = doStuff() 
Scala 也 拥有 画 数 式 编程 语言 必 备 的 模式 匹配 功能 。 我 们 可 以 四 |var cast:Foo = 0bj match { 
配 任意 的 表达 式 ， 殉 配 过 程 会 在 找到 第 一 个 匹配 项 时 成 功 结 ee 
束 ， 即 以 顺序 为 优先 (first-match-wins) 的 匹配 规则 } 
我 们 在 Scala 语 言 | 施展 画 数 式 的 编程 手法 ，case 类 和 模式 匹配 
的 组 合 可 以 说 是 孙 于 铀 Java 语 言 下 的 instanceof 检查 ， 按 Scala 的 习惯 一 般 会 写成 上 面 
Case 类 可 以 实现 可 扩展 的 Visitor 模 式 的 样子 
t tA 直 
我 们 从 第 6 章 的 例子 可 以 体会 到 ， 模 式 匹配 是 清晰 表达 业务 规则 | case class Checking(no: Int) extends 
的 利器 Account 
case class Savings(no: Int, rate: 
Double) extends Account 
def process(acc: Account) = acc match 
case Checking(no) => // 执行 操作 
case Savings(no，rt) => // 执行 操作 
上 
Case 类 9] 模式 匹配 。 Case 天 默认 实现 的 属性 提取 器 
(extractor) 在 匹配 过 程 中 起 到 重要 作 
起 模块 作用 的 object 语法 
object RuleCcomponent extends Rule 
Scala 的 object 语 # RE 可 执行 的 模块 。 我 们 使 类 和 册 消 CountryLocale with Calendar { 
trait 定 义 好 的 各 种 抽象 ， 通 过 object 语法 把 它们 组 合 为 一 个 具体 | 
的 对 象 实体 。Java 语 言 中 与 object 语法 最 为 接近 的 对 应 物 是 静 
态 内 部 类 
Rulecomponent 是 用 声明 中 所 列 抽象 组 合 而 成 的 一 个 单 件 对 象 
隐 含 参数 
def shout(at: String)(implicit curse: 
Serung) re 
println( "hey ar CUrse) 
我 们 可 以 将 函数 的 最 后 一 个 参数 声明 为 implicit ， 从 而 达到 调 |j );，; EN 
0 的 .编译 吕 会 在 但 国法 吕 数 的 作用 堪 内 查 0 
如 果 无 法 在 作用 域内 找到 匹配 的 参数 ， 编 译 器 将 提示 编译 错误 
隐 式 类 型 转换 
隐 式 类 型 转换 可 以 帮助 我 们 在 不 对 现 有 库 进 行 任何 改动 的 前 提 ”| "933 2ocoAn eal a Yt 
下 ， 实 现 对 该 库 的 扩展 。 其 原理 类 似 于 Ruby 的 猴子 补丁 ， 但 多 | ef SPPenT Ener Array[7]) 
了 词法 作用 域 的 约束 WX 实现 
3 
implicit def enrichArray[T](xs: 


Martin Odersky 把 这 种 手法 称 为 Pimp My Library 模式 (参见 第 


Array[T]) = new RichArray[T] 


函数 形式 上 呈现 为 含有 一 连 串 case 语 句 的 模式 匹配 代码 块 
我 们 常常 把 Scala actor 的 消息 接收 循环 定义 成 偏 画 数 


习惯 上 


D.2 布 文献 [2]) 
编译 器 会 在 需要 的 时 候 自 动 调用 隐 式 转换 函数 。 我 们 可 以 利 这 里 定义 的 带 implicit 关键 字 的 enrichArray 范 数 ， 是 一 个 从 
隐 式 类 型 转换 让 旧 的 抽象 适应 新 的 API Array 类 型 到 RichArray 类 型 的 转换 函数 
偏 画 数 
val onlyTrue: 
PartialFunction[Boolean, Int] = { 
case true => 100 

} 

偏 画 数 只 对 其 参数 所 有 可 能 取 值 中 的 一 部 分 有 定义 。Scala 的 偏 | onlyTrue 是 一 个 限定 了 参数 取信 范围 的 partialFunction 。 它 内 


针对 Boolean 值 为 true 的 情况 定义 ° PartialFunction trait 含 有 
isDefinedAt 方法 ， 会 在 参数 取 值 满足 偏 函数 定义 域 的 时 候 返 
true 以 下 是 两 个 例子 : 


scala> onlyTrue isDefinedAt(true) 
res1: Boolean = true 
scala> onlyTrue isDefinedAt (false) 
res2: Boolean = false 


| 


泛 型 和 类 型 参数 


Scala 介 许 在 类 和 方法 的 声明 中 指定 类 型 参数 。 而 且 我 们 还 可 以 
对 这 些 类 型 显示 指定 一 些 抽象 必须 满足 的 约束 条 件 。 对 约束 条 
1 编译 器 自动 执行 ， 我 们 无 需 自 行 编写 任何 验证 代 
我 们 设计 DSL 时 ， 可 以 善 加 利用 Scala 语 言 的 特点 ， 尽 量 把 DSL 
的 约束 条 件 纳入 其 类 型 系统 


class Trade[Account &lt: 
TradingAccount](account: Account ) { 
AL 


} 


按照 这 里 的 类 
Trade 实 网 


定义 ， 不 满足 约束 条 件 的 账户 将 无 法 生成 相应 的 


D.2 参考 文献 


[1] Wampler, Dean, and Alex Payne. 2009. Programming Scala: Scalability = Functional Programming + 


Objects . O'Reilly Media. 


[2] Odersky, Martin. Pimp My Library. Artima Developer . http://www.artima.com/weblogs/viewpost.jsp? 


thread=179766. 


附录 EE Groovy 语 


本 篇 附录 将 帮助 你 热 秋 Groovy 语言 
I 的 语言 综述 。 如 果 和 希望 完整 而 详细 
坝 资 料 。 


E.1 Groovy 语 言 的 DSL 相 关 特 性 


言 的 DSL 相 关 特 性 


言 中 有 助 于 DSL 开 发 的 一 些 特性 。 请 不 要 把 本 附录 看 作 一 篇 细致 
地 探讨 Groovy 语 言 


及 其 语法 ， 可 以 参阅 第 E.2 节 所 列 的 文 


Groovy 是 一 种 动态 类 型 的 OO 语言 ， 扩 
语言 共享 对 象 模 型 ， 因 此 它们 之 间 的 互 操 作 性 


有 强大 人 编程 和 生成 式 元 编程 能 力 。Groovy 与 Java 


。Groovy 还 可 以 人 F 为 一 种 脚本 语言 使 用 。 


HAZNT 特 局 


Groovy 比较 重要 的 语言 
包 等 画 数 式 抽象 。 表 E-1 简 要 概括 了 那些 


表 E- 1 Groovy 语 言 特性 汇总 


包括 可 选 的 类 型 声明 、 运 算 和 名 
令 Groovy 成 为 一 种 优秀 


守重 载 、 便 捷 丰 富 的 字面 量 语法 ， 
的 DSL 实 现 语言 的 重要 特性 。 


基于 类 的 OOP 


class Account { 
Integer balance(Date date) = { 
//. .实现 
Groovy 是 一 种 面向 对 象 的 语言 。 我 们 可 以 定义 类 以 及 类 中 的 实 TL 
例 变量 和 方法 。 类 的 定义 语 法 与 Java 类 似 ， 不 过 省 略 不 写 的 可 Ws 
见 性 修 色 届 符 会 被 默认 为 public 。 类 定义 语法 的 详情 请 参阅 第 E.2 |} 
节 文 献 [1] 
上 面 是 Groovy 类 的 声明 片段 
可 选 的 类 型 声明 
String str = new String("Groovy"); 
str=°8 
我 们 可 以 像 使 用 Java 语 言 那 样 静态 地 为 运行 时 声明 类 型 ， 也 可 | def dstr “dynamic 


以 用 def 关键 字 来 代替 类 型 声明 ， 


动态 类 “方法 和 闭 包 的 


从 而 获得 像 Python 语 


言 那样 的 


型 效 


不 写 


多 参 甚至 连 def 关键 字 都 可 以 省 略 


dstr = 20 


Str 将 被 赋值 string 类 型 的 the REringPSe< 


dstr 将 被 赋值 Integer 类 型 的 the Integer 20 


性 


class Foo { 


String str 
se : def dyn 

不 管 什 么 类 型 的 字段 ， 只 要 省 略 不 写 该 字段 的 可 见 性 修饰 符 ， |} 
就 相当 于 声明 了 一 个 属性 

这 是 一 个 含有 属性 的 类 

字符 串 

def single = ' 这 是 单行 字符 串 ' 

def multi = """ 这 是 多 行 字符 捉 """ 
我 们 可 以 定义 单行 的 字符 串 、 多 行 的 字符 串 ， 以 及 可 以 内 典 占 “|def gstring = "$single 一 共有 ${single.size} 个 字符 " 
位 符 的 Gstring 

这 段 代码 展示 了 Groovy 支 持 的 几 种 字符 串 

集合 数据 类 型 


//”( 半 开 ) 区 间 

(0..<10).each { println it } 
// 各 种 列表 操作 

[1,2,3] * 2 == [1,2,3,1,2,3] 
[1, [2,3]].flatten() == [1,2,3] 


Groovy 提 供 了 各 种 常 合 数据 类 型 ， 如 Range、List、 [1,2,3].reverse() == [3,2,1] 
Map， 等 等 。 它 们 各 各 有 下 分科 便 的 宁 定义 语法 ， 尤 其 |[a,2,3].disjoint([4,5/6]) == true 
适合 用 DSL 脚 本 // _ map 定义 的 字面 量 语法 
def map = [a:0, b:1] 
上 面 是 Groovy 语 言 中 各 种 集合 数据 类 型 的 例子 
闭 包 
def clos = { println "hello world!" } 
clos() // 结果 打印 输出 “hello world!” 
闭 包 是 一 种 可 以 在 适当 时 机 具体 化 _(reification) 之 后 执行 的 代 | def nut fn 
码 块 。 闭 包 内 封装 了 一 段 洱 辑 ， 也 封装 了 包围 这 段 逻 辑 的 作 人 


上 面 是 Groovy 闭 包 的 一 些 简 单 的 使 用 片段 


建造 器 (Builder) 


Builder 可 以 用 惊 


品 


人 简洁 的 语 


的 秘诀 是 元 编程 


看法 构造 出 复杂 的 层级 数据 模型 。 


并 


def builder = new 
groovy.xml.MarkupBuilder (writer) 
builder.html(){ 

head(){ 

title("welcome"){} 


} 
body(){ 


p(“How are you?”) 


} 


Groovy 建 造 器 的 实现 原理 结合 了 元 编程 和 闭 包 
元 编程 ExpandoMetaClass 


Integer.metaClass.twice << {delegate * 2} 


ExpandoMetaclass 是 Groovy 最 重要 的 元 编程 构造 之 一 ， 它 允许 
我 们 按照 闭 包 的 定义 语法 ， 动 态 地 添加 方法 、 构 造 器 、 属 性 和 | oy 
静态 方法 这 上段 代码 向 Integer 类 添加 了 一 个 名 为 twice 的 方法 。 新 的 方法 
在 不 受 限 制 的 作用 域内 对 所 有 的 线程 可 见 


元 编程 一 Category 特性 


class IntegerCategory { 
static Integer twice(Integer i) { 
raeturn i * 2 


} 
Category 概 念 的 作用 与 ExpandoMetaclass 类 似 ， 但 可 以 将 动态 注 | use (Integercategory) { 


入 内 容 的 可 见 性 限制 在 我 们 明确 指定 的 作用 域内 。 es 


twice 方法 仅 在 use {} 划 定 的 作用 域内 可 见 


E.2 参考 文献 


[1] Konig, Dierk, Paul King, Guillaume Laforge, and Jon Skeet, 2009. Groovy in Action , Second Edition. 
Manning Early Access Program Edition. Manning Publications. 


[2] Subramaniam, Venkat. 2008. Programming Groovy: Dynamic Productivity for the Java Developer . 
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附录 FE Clojure 语 言 的 DSL 相 关 特 性 


本 篇 附录 将 帮助 你 熟悉 Clojure 语 言 中 有 助 于 DSL 开 发 的 一 些 特性 。 请 不 要 把 本 附录 看 作 一 篇 细致 
DE 的 语言 综述 。 如 果 和 希望 完整 而 详细 地 探讨 Clojure 语 言及 其 语法 ， 可 以 参阅 第 FE2 节 所 列 的 文 
坝 资 料 。 


F.1 Clojure 语 言 的 DSL 相 关 特 性 


Clojure 是 一 种 植 根 于 JVM 的 函数 式 编 程 语 言 ， 以 通用 编程 语言 为 定位 。 它 属于 动态 类 型 的 语言 ， 
具有 类 型 推断 的 特性 ， 还 可 根据 需要 向 编 译 器 提供 类 型 提示 (type hint) 以 提高 效率 。Clojure 是 一 
种 Lisp 方 言 ， 直接 编译 成 JVM 字 节 码 执行 。 Clojure 语 言 具 有 同 像 (homoiconic) 的 特征 ， 且 内 建 了 
丰富 而 强大 的 并 发 控制 结构 。 
除了 表 F-1 所 列 的 项 目 ，Clojure 还 有 很 多 值得 了 解 的 语言 特性 ， 包 括 并 发 和 状态 管理 方面 的 特性 、 
各 种 缓 求 值 序 列 (lazy sequence) 、 序 列 推导 (sequence-comprehension) 和 循环 ， 以 及 众多 高 级 
数据 结构 。 详 情 可 以 查阅 第 F.2 节 文献 [1]。 


表 F-1 Clojure 语 言 特性 汇总 


画 数 式 一 一 围绕 画 数 来 组 织 DSL 


我 们 的 整套 DSL 全 首 


函数 构成 


要 


函数 是 Clojure 下 


的 语言 构造 。Clojure 的 


省 
， 


闭 包 特 | 


Hs 


持 


匿名 函数 


函数 支持 高 阶 


Cotr "Mellor  " 
=> "hello world" 
(Ccount [1 2°3 4 51) 
=> 5 

(+ 12 20) 

=> 32 


"world") 


函数 和 


Clojure 


地 位 。 


虽然 建立 7 


上 ， 但 它 的 函数 式 特 征 


Java 


忌 管 Clojure 人 允许 我 们 下 降 到 Java 
但 就 语言 言 习 惯 


来 说 ， 


屋面 去 调 


Clojure 是 函数 式 的 


前 缀 语法 现在 已 经 不 会 让 人 感到 陌生 
注意 : 


具有 “ 同 像 (homoiconic) ”的 性 质 。 画 数 调 


操作 本 与 


Clojure 


年 人 2% 


上 表 ， 以 函数 的 名 字 作 为 列表 的 第 一 个 元 素 。 


(filter even? [1 2 3 4]) 
=> (2 4) 


是 当 


even? 是 一 个 Clojure 丽 数 ， # 作 当 输 入 为 偶数 时 返 
我 们 在 上 面 例子 中 将 even? 函数 
会 用 它 来 逐一 筛选 输入 丈 


下 GE 

(filter #(or (zero? (mod % 3)) 
(zero? (mod % 5))) 
[13579 10 15]) 

(3 5 9 10 15) 


表 的 每 一 个 元 素 。 


我 们 还 可 以 把 
画 数 式 一 一 画 数 定义 


匿名 函数 传递 弟 给 filter 


Dtrue ° 


作为 参数 之 一 传递 给 filter ， 


(defn AString greet 
"Greet your friend" 
[name] 

"hello, " 


(Str name)) 


纯粹 。 


了 


的 特点 


我 们 通过 defn 宏 来 定 
函数 本 身 也 
义 意义 的 符号 ， 这 是 Clojure (以 及 


函数 。 如 右边 的 例子 所 示 ， 


其 语法 非常 


函数 定义 以 defn 开头 。 然 后 后 是 文档 字符 串 


(docstring) 


全 数据 只 不 过 开头 的 位 置 添加 


他 Lisp 变 体 ) 


下 il 得 
最 为 引 人 注 


， 也 就 


函数 的 说 明文 档 


是 。 接 
是 函数 体 

我 

AS 


是 放 在 


站 De 元 数据 以 ^ 前 级 


的 返回 类 型 


tring 标明 函数 


段 函 数 定 义 本 身 
成 分 都 是 列表 中 的 元 素 


也 是 一 个 Clojure 列 表 结 构 ， 定 义 的 每 


个 vector 里 的 参数 列表 。 最 后 


。 例 中 的 


一 个 构 


抽象 设计 


Clojure 方 式 


传统 00 方 式 


。 字段 公 
象 不 可 变 ， 


对 


太 . 
7JD 


多 路 方法 (multimethod) 和 协议 (protocol) 


不 存在 实现 继承 


数 
对 


据 都 作为 私有 成 员 隐藏 在 类 
象 是 可 变 的 ; 


Ht: 
; 


妥 级 化 的 继承 关系 
承 ， 也 可 以 是 实现 继承 
允许 实现 继承 


实现 多 


卉 
党 


成 多 态 ， 继 承 关系 可 以 是 接 
多 ; 


Clojure 语 言 的 任 
一 视 同仁 地 
另外 ， 所 有 的 Java 集 合 类 型 都 可 Lb 


何 一 种 集合 数据 类 型 都 是 


对 行 


右边 的 例子 


F 所 示 


所 有 种 类 的 序列 ， 


a 


个 序列 。 我 们 可 以 
通过 相同 的 API 来 操作 它们 。 
做 Clojure 序 列 来 对 待 


first '(10, 20, 30)) 


V 
[uy 
© 


rest [10，20，30]) 
> (20, 30) 

first {:fname "rich" 
> [:fname "rich"] 


:lname "hickey"}) 


一 中 一 | 一 


”如 | 在 这 段 代码 
。 第 一 个 例子 在 一 个 List 上 调 
。 第 二 个 例子 在 一 个 vector 上 
。 第 三 个 例子 在 一 个 Map 上 调 


UD 


Pirsts 


时 


rest ; 
first 


序列 同时 也 是 画 数 


(def colors [:red :blue :green]) 
(colors 0) 
Clojure 把 所 有 的 序列 类 型 都 当成 画 数 看 待 。 这 种 观点 源 自序 列 |=> :red 
的 数学 定义 (def room {:len 100 :wd 50 :ht 10}) 
Glojwre 的 各 种 序列 都 可 以 从 数 的 角度 去 表述 ， 下 面 是 几 个 例 (599 :en) 
(def names #{"rich hickey" "martin odersky" 
"james strachan"}) 
。 Vector 是 它 的 位 置 的 函数 ; (names "rich hickey") 
。Map 是 它 的 键 的 丽 数 ; a 
目 直 7 > 局 zi 玉 names "dennis Ritchie" 
。 set 是 它 的 成 员 关系 的 函数 ss 
创建 序列 


Clojure 提 供 了 一 系列 的 序列 


创建 画 数 。 其 中 很 大 一 部 分 函数 返 


此 可 以 用 于 他 


de 


可 的 序列 是 缓 求 值 序列 ， 项 


建 无 限 长 的 序列 


(range 9 10 2) 

=> (02468) 

(repeat 5 3) 

=> (33333) 

(take 10 (iterate inc 1)) 
=> (123456789190) 


对 序列 进行 筛选 


Clojure 为 序列 的 筛选 操作 提 4 


了 若干 组 合子 。 我 们 应 该 优先 使 


(filter even? [1234567 8 9]) 

=> [2 46 8] 

(take 10 (filter even? (iterate inc 1))) 
=> [2468 10 12 14 16 18 20] 


这 些 组 合子 ， 尽 量 避 免 程序 中 出 现 显 式 的 递归 Ge 
对 序列 进行 变换 
(map inc [1 2 3 4]) 
=> (234 5) 
Clojure 提 供 了 大 量 对 已 存在 序列 进行 变换 操作 的 组 合子 。 它 们 | (reduce + [1 2 3 4]) 
以 一 个 序列 作为 输入 ， 输 出 变换 后 产生 另 一 个 序列 或 值 Fe 
数据 结构 的 持久 性 和 不 可 变性 


(def a [1 2 3 4]) 
(def b (conj a 5)) 


开 蔡 换 为 有 效 Clojure 语 言 成 分 的 程序 结构 。 
我 们 为 DSL 量 身 定做 各 种 语法 结构 的 利器 


宏 是 


Clojure 语 言 中 所 有 的 数据 结构 都 具有 不 可 变 (immutable) 和 持 |a 
入 (persistent) 的 性 质 。 也 就 是 说 ， 即 使 一 人 要 烛 生 了 放 2% [L234] 
变 ， 我 们 仍然 可 以 访问 它 的 所 有 历史 版 本 。 而 且 Clojure 的 实现 |2、[1 。 4 5] 
方式 并 不 需要 额外 占用 大 量 的 存储 空间 
宏 
(defmacro unless [expr form] 
Clojure 进 行 DSL 设 计 的 秘诀 是 宏 。 安 是 一 种 在 宏 展 开 阶 段 被 导 全 


if 和 while 的 控制 结构 。 
没有 什么 两 样 


我 们 在 
在 使 用 


这 个 宏 里 定义 了 一 种 类 似 于 
的 时 候 和 一 般 的 Clojure 语 言 成 分 并 


F.2 参考 文献 


[1] Halloway, Stuart. 2009. Programming Clojure. The Pragmatic Bookshelf. 


附录 G 多 语言 开发 


通读 全 书 ， 你 会 产生 一 个 印象 ,DSL 不 必 总 用 一 种 语言 来 编写 ， 我 们 可 以 根据 需求 来 选择 最 适合 
的 语言 。 然 而 当 各 种 语言 不 加 选择 地 凌 在 一 起 ， 互相 风 谷 不 入 轩 语言 间 的 摩擦 又 可 能 令 我 们 的 
应 用 成 为 灾难 的 现场 。 当 然 ， 这 种 情形 是 可 以 避 锡 的。 那么， 如何 判断 自己 的 项 目 是 否 远 离 了 语 
言 冲 突 的 洲 涡 呢 ? 很 简单 ! 当 你 真正 遇 到 语言 冲突 时 ， 肯 定 会 像 图 G-1 的 程序 员 那 样 挠 头 的 。 


C 
oo 
2 


外 ， Clojure 


? > 
< 
人 < 从 


多 语言 主义 !! 


图 G-1 别 让 自己 落 到 这 个 地 步 


本 篇 附录 的 作用 是 引导 读者 搭建 一 个 有 序 的 多 语言 开 发 环 党 。 如 果 我 们 希望 在 JVM 上 开发 DSL 应 
用 ， 那 么 此 时 Java 语 言 将 在 开发 中 扮 } 演 基本 宿 语言 的 角色 。 应 用 的 主体 部 分 使 用 Java 语 言 ，DSL 
的 部 分 则 选择 其 他 语言 和 而 山中 上 和 客户 和 二 APl 表 的 让 求 。 在 此 有 个 小 小 的 提醒 一 一 本 篇 
了 和 本 是 为 初 涉 多 语言 范式 KDSL 开 发 的 读者 准备 的 ， 已 弓 4 有 过 相关 经 验 的 开发 者 完全 可 以 忽略 。 


我 们 会 用 两 个 例子 来 说 明 开发 环境 的 搭建 方法 ， 例 中 将 按照 我 们 的 设想 ， 使 用 Java 以 外 的 JVM 语 
言 来 开发 DSL， 然 后 将 之 集成 到 基于 Java 的 应 用 主体 。 第 一 个 例子 针对 动态 类 型 语言 Groovy， 主 
要 展示 Java 和 Groovy 语 言 的 混合 项 目 在 现代 IDE 里 天 衣 无 颖 的 集成 效果 。 第 二 个 例子 针对 静态 类 型 
语言 Scala， 讲 解 Java 和 和 Scala 混合 项 目的 开发 环境 配置 


G.1 对 IDE 的 特性 要 求 
就 JVM 平 台 上 的 多 语言 项 目 来 说 ， 我 们 希望 IDE 具 备 以 下 特性 。 


。 支持 Java 与 男 一 种 JVM 语 言 ， 如 Scala、Groovy、Ruby 或 Clojure 的 混合 项 目 ， 以 及 相应 的 项 目 
依赖 项 。 

。 是 法 功能 ， 可 以 为 开发 者 提供 一 定 程度 的 协助 。 所 谓 “ 丰 富 ”， 
指 的 是 编辑 器 具备 语法 高 亮 、 类 型 推断 、 鼠 标 文 档 提 示 、 代 码 补 全 等 类 似 功 能 。 


。 可 以 在 统一 视图 下 浏览 所 有 的 项 目 音 
。 集成 了 相关 语言 


言 的 调试 能 力 。 


除 此 之 乡 


尽力 从 使 月 


不 同 的 语言 言 不 


好 一 些 ， 六 了 的 和 有 隧 的 信人 


静态 类 型 语 


TIDE 的 发 展 晶 


者 的 角度 去 提 天 
G.2 搭建 J ava 和 Groovy 的 混合 开发 环境 


真正 从 事 过 Java 项 
(http://netbeans.org ) 等 现代 IDE 的 经 验 。 
的 IDE 能 够 为 项 目的 操作 和 构建 提 作 


相关 开发 平台 的 更 


何 ; 


Groovy 与 Java 的 


适合 Java 项 
陷 。Groovy 是 一 


的 类 型 信和 心 ”了 


作用 。 即 便 有 这 样 
能 操作 的 编译 器 


请 读者 按照 表 G-1 


于 发 的 人 肯 


新 消息 。 

成 关系 非常 融洽 
JIDE 人 至 少 色 

1 动态 语言 户 ， 

理论 
插件 被 发 明 出 来 ， 


的 建议 配置 Java 项 目 
表 G-1 搭建 Groovy DSL 开 发 环境 的 步骤 


功能 ， 希 


水平 相当 的 支撑。 


* 我 们 在 第 3 章 提 到 过 ， 
E 够 为 Groovy 项 目 
不 刻意 要 求 指 
尺码 补 全 之 类 的 高 


所 以 和 
遇 到 


了 适 的 使 用 感受 。 


定 都 有 使 用 Eclipse tp eclipse. org ) 


新 


牛 ， 包 括 用 不 同 语言 编写 的 类 型 、 包 、 视 图 等 。 


言 的 IDE 支 持 一 般 要 比 动态 语言 的 
月 异 ， 众 多 流行 的 IDE 都 在 


、 NetBeans 


言 DSL 开 发 领域 时 ， 上 自然 会 希望 所 使 用 


当前 这 方面 的 进 


Groovy 共 享 ] 


展 极为 迅速 ， 读 者 可 以 关注 


的 对 象 模型 ， 因 此 全 


i 


HR 


平 相 当 的 支持 。 不 过 这 
多 时 候 IDE 无 法 


个 从 


上 的 弱点 ， 我 们 是 领 二 


下 的 Groovy DSL 天 


0 


[发 环境 


本 有 一 个 隐 史 的 缺 


得 知 运行 时 才能 确定 


域 的 持续 进步 。 


Groovy 代 码 时 就 不 一 定 能 很 好 地 发 挥 
众多 能 够 执行 各 式 智 


步骤 


下 载 Java Development Kit (Java 5 以 上 版 本 ) 


于 常规 的 Java 开 发 ，Groovy 


发 也 需要 Java 运 行 时 


下 载 NetBeans IDE (最 新 版 本 ) ; 
http://netbeans.org 网 站 上 的 文档 


负责 管理 我 们 的 Java 和 Groovy 项 


仁 NetBeans 腑 早 


建 普 通 的 Java 应 


| 建 的 Java 和 Groovy 源 文 伯 


F 都 归属 于 这 个 应 


给 项 目 命名 ， 然 后 开 


始 创 建 Java 和 Groovy 源 


会 在 统一 的 视图 下 管理 项 


HJava 源 文件 都 被 放 
的 插件 ，Netbeans 就 能 


中 的 Java 和 Groovy 部 件 。 Groovy 


自我 们 设 定 的 包 结 构 之 中 
顺利 构建 这 样 的 项 


党、 第 4 章 里 讨论 的 任意 一 种 方法 ， 我 们 都 可 以 轻松 地 
类 里 调用 写 好 的 DSL 脚 本 


G.3 搭建 Java 和 Scala 的 混合 开发 环境 


型 系统 的 静态 类 型 语言 。 针 对 Scala 语 言 的 IDE 支 持 也 正在 拓 


ba 


众所周知 Scala 是 一 种 


发 展 进步 ， 其 


。 Java Development Kit 6 ; 
。Eclipse Classic (确切 版 本 i 


安装 好 Eclipse 后 ， 就 可 
ide.org/ ) 的 主页 上 


Scala 语 言 的 Eclipse 捐 


在 Eclipse 上 添 


上 Scala 语 言 支 持 非常 
置 步骤 做 ， 就 外 人 


首先 需要 准备 以 下 软件 : 


有 强大 类 
'Eclipse ~ IntelliJ Idea 和 NetBeans 已 


青 查 阅 http:Weclipse.org ) 


i 件 


以 开始 安装 Scala 语 言 


备 相当 优秀 的 Scala 代 码 编辑 能 力 。 


和 单 ， 上 只 要 安 六 最 新 版 本 的 插件 束 可 以 了 。 
Eclipse 环境 。 


重 件 所 在 的 Scala IDE 网 六 


段 视频 ， 演 示 ] 安装 所 需 的 详 
每 天 都 在 改进 。 插 


步骤 。 


站 
弃 


照 着 下 面 的 完整 配 


上 


(http://www.scala- 


件 为 我 们 的 Scala/Java 混 合 开 发 ] 


[ 作 提 供 了 大 量 的 功能 : 


支持 Scala 和 Java 的 混合 项 目 


。 文 持 代码 补 全 、 类 型 推断 等 功 人 EB 的 高 级 编辑 器 ; 

。 增 量 编 译 ; 

。 调试 器 支持 ; 

。 以 及 这 里 无 法 一 一 提 及 的 、 专 为 各 种 Scala 和 Java 制 品 而 准备 的 诸多 功能 
G.4 常见 的 多 语言 开发 IDE 
表 G-2 列 出 了 一 些 常见 的 、 适 合 多 语言 开发 的 IDE。 此 外 ， 还 列 出 了 每 一 种 IDE 所 支持 的 常用 语言 
以 及 相应 的 语言 支持 插件 。 
表 G-2 适合 多 语言 开发 的 IDE 

IDE 支持 插件 
各 语言 的 支持 插件 : 
。 Groovy (http://groovy.codehaus.org/Eclipset+Plugin ) 

Eclipse (http://eclipse.org ) 。 Ruby 


Scala (http://scala-ide.org ) 
Clojure (http://code.google.com/p/counterclockwise/ ) ) 


NetBeans (http://netbeans.org ) 


各 语言 的 支持 插件 : 


。 Ruby (http://netbeans.org/projects/ruby/ ) 
。 Clojure (http://www.enclojure.org ) 

。 Scala (http://wiki.netbeans.org/Scala ) 

。 内 建 支持 Groovy， 无 需 插件 


Emacs 
(http://www.gnu.org/software/emacs/ 


选 


Emacs 支持 的 JVM 语 言 很 多 ， 其 
和 有 一 点 需要 提醒 : 没有 


人 


模式 (mode) 


中 Clojure 是 最 对 它 


惯 Emacs 的 


。 如 果 你 打算 尝试 Emacs 和 Clojure 的 组 合 


http://www.assembla.com/wiki/show/clojure/Getting_Star ted_with_Emacs 入 3 


捍 气 的 。Emacs 可 以 说 是 编辑 Clojure 代 码 


发 者 必须 花 一 点 时 间 才 能 适应 它 的 各 种 
， 可 以 先 从 


m 


IntelliJ IDEA (Text to be 


displayedhttp://www.jetbrains.com/idea/ 
) 


当前 IDE 领 域 的 发 


各 语言 的 支持 插件 : 


Groovy (http://www.jetbrains.com/idea/features/groovy_grails.html ) 

Ruby (http://www.jetbrains.com/idea/features/ruby_rails.html ) 

Scala (http://confluence.jetbrains.net/display/SCA/Scalat+Plugin+for+IntelliJ+IDEA ) 
Clojure 
(http://www.assembla.com/wiki/show/clojure/Getting_Started_with_Idea_and_La_Clojure 


) 


0 的 新 特 1 


> 
择 IDE 的 时 候 ， 最 好 还 是 多 


展 十 分 活跃 ， 不 断 增 才 
了 到 相关 的 网 立 


生 令 它们 的 功能 越 来 越 丰 富 和 完善 
5 上 做 做 功课 再 下 决定 。 


。 因 此 我 们 在 选 


